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

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

End Sub