Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
Ocorre quando o nó XML pai da seleção atual é alterado.
Sintaxe
expressão. XMLSelectionChange'(Sel**, OldXMLNode, NewXMLNode, Reason)
expressão Uma variável que representa um objeto "Aplicação" que foi declarado num módulo de classe com o palavra-chave WithEvents. Para obter mais informações sobre como utilizar eventos com o objeto Aplicação , veja Utilizar eventos com o objeto Aplicação.
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Sel | Obrigatório | Selection | O texto selecionado, incluindo elementos XML. Se nenhum texto estiver selecionado, o parâmetro Sel retorna o primeiro caractere à direita do ponto de inserção ou não retorna nada. |
| OldXMLNode | Obrigatório | XMLNode | O nó XML a partir do qual o ponto de inserção está se movendo. |
| NewXMLNode | Obrigatório | XMLNode | O nó XML até o qual o ponto de inserção está se movendo. |
Exemplo
O exemplo a seguir valida um elemento XML recém-adicionado quando um novo elemento é inserido no documento.
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
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.