Range.WordOpenXML (Word)

Devuelve una cadena que representa el XML incluido dentro del intervalo en el formato XML abierto de Microsoft Word.

Esta propiedad devuelve sólo el XML en el documento que se necesita para representar el intervalo especificado.

Dim strWordOpenXML As String
strWordOpenXML = ActiveDocument.Range.WordOpenXML