Range.XML (Word)

Returns a String that represents the XML text in the specified object.

XML (DataOnly)

DataOnly: True returns the text of the XML without the Word XML markup. The default setting is False.

Dim strXML As String
strXML = ActiveDocument.Range.XML