通过

Application.XMLSelectionChange 事件 (Word)

  • 项目

在当前所选内容的 XML 父节点更改时发生。

语法

表达式。XMLSelectionChange' (Sel**， OldXMLNode， NewXMLNode， Reason)

表达一个变量，它表示已使用 WithEvents 关键字在类模块中声明的“Application”对象。 有关对 Application 对象使用事件的详细信息，请参阅 对 Application 对象使用事件。

参数

名称 必需/可选 数据类型 说明
Sel 必需 Selection 选中的文本，包括 XML 元素。 如果未选中任何文本，则 Sel 参数返回空值或插入点右侧的第一个字符。
OldXMLNode 必需 XMLNode 插入点离开的 XML 节点。
NewXMLNode 必需 XMLNode 插入点移动到的 XML 节点。

示例

以下示例在将新元素插入到文档中时，对新添加的 XML 元素进行验证。

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

另请参阅

Application 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。