如何使用VBA获取启动ActiveDocument的快捷方式的文件路径？

我正在建立一个文件管理系统。在主文档存储库中的每个子目录中，都有一个文档模板的快捷方式。当用户想要创建新文档时，他/她导航到文档的相应子目录并单击快捷方式。 当用户单击快捷方式时，将启动MS Word，根据模板显示新文档。当用户单击“保存”时，文档通常会保存到当前目录，该目录将是“Word选项”中指定的新文档的默认位置。 我希望新文档的当前目录与创建它的快捷方式的目录相同。用户已经通过导航到相应的子目录并单击快捷方式来确定文档的位置。用户无需在“另存为...”对话框中再次导航到同一位置。 如果我可以获取快捷方式的路径，我可以以编程方式将文档保存到同一目录或新子目录。 还在MSDN VBA论坛和VBA Express上询问。