Range.WordOpenXML (Word)

Retorna uma cadeia de caracteres que representa o XML contido no intervalo no formato Open XML do Microsoft Word. Somente leitura.

Esta propriedade retorna somente o XML no documento necessário para representar o intervalo especificado.

Dim strWordOpenXML As String
strWordOpenXML = ActiveDocument.Range.WordOpenXML