Document.WordOpenXML (Word)

Returns a String that represents the flat XML format for the Word Open XML contents of the document.

Dim strWordOpenXML As String
strWordOpenXML = ActiveDocument.WordOpenXML