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

 2016/9/1 (木)    

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

Copyright© WINGFIELD since1981 , 2018 All Rights Reserved.