Objeto XMLNodes (Word)
Uma coleção de objetos XMLNode que representa os nós no modo de exibição de árvore do painel de tarefas Estrutura XML e indica os elementos que um usuário aplicou a um documento. Cada nó no modo de exibição de árvore é uma instância de um objeto XMLNode. A hierarquia nesse modo de exibição indica se um nó contém nós filho.
unidade organizacional pode retornar uma coleção XMLNodes para todo o documento, um intervalo ou uma seleção. A ordem na qual os objetos XMLNode aparecem na coleção XMLNodes é a mesma ordem em que suas marcas de início ou fim aparecem dentro a seleção especificada, intervalo ou documento.
Use o método Item da coleção XMLNodes para retornar um objeto XMLNode individual. Use o método Validate para verificar se um elemento XML é válido de acordo com os esquemas aplicados e o que qualquer elemento filho necessário existe e está na ordem exigida. Depois que você executar o método Validate, use a propriedade ValidationStatus para verificar se um elemento é válido e a propriedade ValidationErrorText exiba uma mensagem ao usuário sobre o que o usuário precisa fazer para corrigir para tornar o XML no documento estão de acordo com as regras do esquema XML.
O exemplo a seguir valida cada um dos elementos XML no documento ativo e, se o elemento ou atributo for considerado inválido em relação ao esquema, retornará uma mensagem ao usuário explicando por que o elemento é inválido.
Dim objNode As XMLNode
For Each objNode In ActiveDocument.XMLNodes
objNode.Validate
If objNode.ValidationStatus <> wdXMLValidationStatusOK Then
MsgBox objNode.ValidationErrorText(True)
End If
Next
Use o método Add para adicionar um elemento XML a uma seleção, um intervalo ou documento. O exemplo a seguir insere o elemento de exemplo do esquema SimpleSample no documento ativo no ponto de inserção ou ao redor da seleção ativa.
Observação
Como o XML é sensível a casos, o elemento XML digitado no parâmetro Name do método Add deve ser digitado exatamente como aparece no esquema referenciado no parâmetro Namespace.
Dim objNode As XMLNode
Dim intResponse As Integer
Set objNode = Selection.XMLNodes.Add("example", "SimpleSample")
objNode.Validate
If objNode.ValidationStatus < 0 Then
intResponse = MsgBox("This element is invalid. " & _
"Are you sure you want to add it?", vbYesNo)
If intResponse = vbNo Then objNode.Delete
End If
Referência do modelo de objeto do Word
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.