Selection.WordOpenXML (Word)

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

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

Dim strWordOpenXML As String
strWordOpenXML = Selection.WordOpenXML