Document.FullName (Word)

Returns a String that represents the name of a document, including the path.

Using this property is equivalent to using the Path, PathSeparator, and Name properties in sequence.

Sub DocName() 
 MsgBox ActiveDocument.FullName 
End Sub