Word 2010中的Visual Basic - 打开目录 - 相对路径

Question

我正在创建一个word文档，但我在编写代码时无法打开特定目录。 基本上，我会在USB驱动器或DVD上的单独文件夹中有一堆视频文件，当单击命令按钮时，我希望它在Windows资源管理器窗口中打开相关目录。

我做了一些谷歌搜索，并提出了以下代码：

FolderName =“c：\ windows”

TaskID = Shell（“explorer.exe”＆amp; FolderName，vbNormalFocus）

现在唯一的问题是我需要将路径引用从绝对更改为相对，因为我将在多台计算机上运行USB驱动器或DVD中的所有内容。

我已尝试过每次可能的相对路径引用迭代，但我似乎无法让它工作。文件夹只是word文档所在的子目录。

任何人都有任何线索，因为我可以将上面的代码更改为相对而不是绝对路径引用？

Answer 1

我认为这样的事情可能就是你要找的东西：

FolderName = ActiveDocument.Path & "\SubFolder"

TaskID = Shell("explorer.exe " & FolderName, vbNormalFocus)

假设您的文档是活动文档，否则您可能需要在Documents集合中搜索正确的文档。