This example displays the path and file name of the active document.
MsgBox ActiveDocument.Path & Application.PathSeparator & _
ActiveDocument.Name
This example changes the current folder to the path of the template attached to the active document.
ChDir ActiveDocument.AttachedTemplate.Path
This example displays the path of the first add-in in the AddIns collection.
If AddIns.Count >= 1 Then MsgBox AddIns(1).Path