activedocument

Ответ от ...[гуру]
Документов может быть открыто несколько.
У Application есть массив-коллекция Documents
ссылка
Каждый член этого массива Document
ссылка
У каждого Document есть FullName (полное имя)
И
Path (путь)
Sub Test
Dim d
For Each d in Application.Documents
MsgBox d.FullName & " : " & d.Path
Next
End Sub
Если нужен активный документ, то
Application.ActiveDocument
MsgBox Application.ActiveDocument.Path