как в VBA получить путь открытого документа в word

Документов может быть открыто несколько.
У Application есть массив-коллекция Documents
http://msdn.microsoft.com/ru-ru/library/microsoft.office.interop.word.documents_members.aspx

Каждый член этого массива Document
http://msdn.microsoft.com/ru-ru/library/microsoft.office.interop.word.document_members.aspx

У каждого Document есть FullName (полное имя)
http://msdn.microsoft.com/ru-ru/library/microsoft.office.interop.word._document.fullname.aspx
И
Path (путь)
http://msdn.microsoft.com/ru-ru/library/microsoft.office.interop.word._document.path.aspx

Sub Test
Dim d

For Each d in Application.Documents
MsgBox d.FullName & " : " & d.Path
Next

End Sub

Если нужен активный документ, то
Application.ActiveDocument
http://msdn.microsoft.com/ru-ru/library/microsoft.office.interop.word._application.activedocument.aspx

MsgBox Application.ActiveDocument.Path