Ler em inglês

Compartilhar via


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.

Comentários

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

Confira também

Referência do modelo de objeto do Word

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.