Как использовать VBA для получения пути к файлу ярлыка, с которого был запущен ActiveDocument?

Question

Я строю систему управления документами. В каждом подкаталоге в главном хранилище документов есть ярлык для шаблона документа. Когда пользователь хочет создать новый документ, он / она переходит в соответствующий подкаталог для документа и нажимает на ярлык.

Когда пользователь нажимает на ярлык, запускается MS Word, показывая новый документ на основе шаблона. Когда пользователь нажимает Сохранить , документ обычно сохраняется в текущем каталоге, который будет местом по умолчанию для новых документов, указанных в Параметры Word .

Я хочу, чтобы текущий каталог нового документа совпадал с каталогом ярлыка, из которого он был создан. Пользователь уже решил, где должен находиться документ, перейдя в соответствующий подкаталог и щелкнув по ярлыку. Пользователю не нужно снова переходить в то же место в диалоговом окне Сохранить как ... .

Если я могу получить путь к ярлыку, я могу программно сохранить документ в том же каталоге или в новом подкаталоге.

Также спрашивается на MSDN VBA Forum и на VBA Express .

Answer 1

Я не думаю, что вы сможете сделать это без каких-либо ужасных хакерских атак вокруг траления файловой системы (у меня была мозговая волна о свойстве ярлыка «Начать в», но, к сожалению, этого не произошлоработа).

К сожалению, я думаю, что лучшее решение может состоять в том, чтобы избавиться от ярлыков и просто скопить множество копий шаблона документа.

Крис

Answer 2

Может быть, это?

Public Sub OriginalPath()

    Debug.Print TemplateProject.ThisDocument.Path

End Sub