Partager via


Application.XMLSelectionChange Event (Word)

Occurs when the parent XML node of the current selection changes.

Syntax

Private Sub expression _XMLSelectionChange(Sel, OldXMLNode, NewXMLNode, Reason)

expression A variable that represents an Application object that has been declared in a class module by using the WithEvents keyword. For more information about using events with the Application object, see Using Events with the Application Object.

Parameters

Name

Required/Optional

Data Type

Description

Sel

Required

Selection

The text selected, including XML elements. If no text is selected, the Sel parameter returns either nothing or the first character to the right of the insertion point.

OldXMLNode

Required

XMLNode

The XML node from which the insertion point is moving.

NewXMLNode

Required

XMLNode

The XML node to which the insertion point is moving.

Example

The following example validates a newly added XML element when a new element is inserted into the document.

Private Sub Wrd_XMLSelectionChange(ByVal Sel As Selection, _ 
 ByVal OldXMLNode As XMLNode, ByVal NewXMLNode As XMLNode, _ 
 Reason As Long) 
 
 Dim intResponse As Integer 
 
 If Reason = wdXMLSelectionChangeReasonInsert Then 
 If Not NewXMLNode Is Nothing Then 
 NewXMLNode.Validate 
 End If 
 End If 
 
End Sub

See Also

Concepts

Application Object Members

Application Object