Range.Document (Word)

Devuelve un objeto Document asociado con el rango especificado.

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