Range.WordOpenXML (Word)

Returns a String that represents the XML contained within the range in the Microsoft Word Open XML format.

This property returns only the XML in the document that is needed to represent the specified range.

Dim strWordOpenXML As String
strWordOpenXML = ActiveDocument.Range.WordOpenXML