0

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

我做了一些谷歌搜索并想出了以下代码:

文件夹名称 = "c:\windows"

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

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

我已经尝试了所有可能的相对路径引用迭代,但我似乎无法让它工作。文件夹只是 word 文档所在位置的子目录。

任何人都知道如何将上述代码更改为相对而不是绝对路径引用?

4

1 回答 1

0

我认为这样的东西可能是你正在寻找的:

FolderName = ActiveDocument.Path & "\SubFolder"

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

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

于 2011-10-14T09:08:11.213 回答