Visual Basic в Word 2010 - Open Dir - Относительный путь - PullRequest
0 голосов
/ 14 октября 2011

Я создаю документ Word, и у меня возникают проблемы при разработке кода для открытия определенного каталога. По сути, у меня будет несколько видеофайлов на USB-накопителе или DVD-диске в отдельных папках, и когда нажата командная кнопка, я бы хотел, чтобы она открыла соответствующий каталог в окне проводника Windows.

Я провел поиск в Google и нашел следующий код:

FolderName = "c: \ windows"

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

Единственная проблема сейчас заключается в том, что мне нужно изменить ссылку на путь с абсолютного на относительный, так как я буду запускать все с USB-накопителя или DVD-диска на нескольких компьютерах.

Я перепробовал каждую возможную итерацию относительных ссылок на пути, но я не могу заставить ее работать. Папки - это просто подкаталоги, в которых находится слово document.

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

1 Ответ

0 голосов
/ 14 октября 2011

Я думаю, что-то вроде этого может быть тем, что вы ищете:

FolderName = ActiveDocument.Path & "\SubFolder"

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

Предполагая, что ваш документ является активным, в противном случае вам, возможно, придется поискать в коллекции Documents правильныйодин.

...