Range.Document (Word)

Returns a Document object associated with the specified range.

Dim docDocument As Document
Set docDocument = ActiveDocument.Range.Document