как в VBA получить путь открытого документа в word
Application.Options.DefaultFilePath - дает путь к папке с: \users\..\appdata\roaming и тд
а мне надо тот каталог где лежал файл
Application.Options.DefaultFilePath - дает путь к папке с: \users\..\appdata\roaming и тд
а мне надо тот каталог где лежал файл
Документов может быть открыто несколько.
У Application есть массив-коллекция Documents
http://msdn.microsoft.com/ru-ru/library/microsoft.office.interop.word.documents_members.aspx
Каждый член этого массива Document
http://msdn.microsoft.com/ru-ru/library/microsoft.office.interop.word.document_members.aspx
У каждого Document есть FullName (полное имя)
http://msdn.microsoft.com/ru-ru/library/microsoft.office.interop.word._document.fullname.aspx
И
Path (путь)
http://msdn.microsoft.com/ru-ru/library/microsoft.office.interop.word._document.path.aspx
Sub Test
Dim d
For Each d in Application.Documents
MsgBox d.FullName & " : " & d.Path
Next
End Sub
Если нужен активный документ, то
Application.ActiveDocument
http://msdn.microsoft.com/ru-ru/library/microsoft.office.interop.word._application.activedocument.aspx
MsgBox Application.ActiveDocument.Path
ActiveDocument.Name
ActiveDocument.FullName
ActiveDocument.Path
How about google it in English? Thousands of links are waiting for you…
For example:
http://software-solutions-online.com/2014/06/01/word-vba-get-current-file-path-and-name/