Range.Document (Word)

Retorna um objeto Document associado ao intervalo especificado. Somente leitura.

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