Document.WordOpenXML (Word)

Devuelve una cadena que representa el formato XML plano para el contenido XML abierto de Word del documento.

Dim strWordOpenXML As String
strWordOpenXML = ActiveDocument.WordOpenXML