VBA で現在のドキュメントファイルのフルパスを表示する方法

'現在のドキュメントファイルのフルパスを表示する方法
'ドキュメントを保存しなければエラーとなるので注意
Sub GetDocumentPath()
    Dim pDocument As IDocument
    Set pDocument = ThisDocument
     
    Dim pVBProject As VBProject
    Set pVBProject = pDocument.VBProject
     
    Debug.Print pVBProject.FileName
 
End Sub