Range.XML (Word)

Retorna uma cadeia de caracteres que representa o texto XML no objeto especificado.

XML (DataOnly)

DataOnly: True retorna o texto do XML sem a marcação XML do Word. A configuração padrão é False.

Dim strXML As String
strXML = ActiveDocument.Range.XML