XMLNode.NextSibling (Word)

Retorna um objeto XMLNode que representa o próximo elemento no documento que está no mesmo nível do elemento especificado.

Se o elemento especificado for o último elemento na coleção XMLNodes, esta propriedade retornará Nothing.

Dim objNode As XMLNode 
 
Set objNode = ActiveDocument.XMLNodes(2).NextSibling