Document.FullName (Word)

Retorna uma cadeia de caracteres que representa o nome de um documento, incluindo o caminho. Somente leitura.

Usar esta propriedade equivale a usar as propriedades Path, PathSeparator e Name na sequência.

Sub DocName() 
 MsgBox ActiveDocument.FullName 
End Sub