0

Word 文書を作成していますが、特定のディレクトリを開くコードを作成するのに問題があります。基本的に、USB ドライブまたは DVD に複数のビデオ ファイルを別々のフォルダーに保存し、コマンド ボタンをクリックすると、関連するディレクトリを Windows エクスプローラー ウィンドウで開きたいと考えています。

私はいくつかのGoogle検索を行い、次のコードを思いつきました：

FolderName = "c:\windows"

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

唯一の問題は、複数のコンピューターで USB ドライブまたは DVD からすべてを実行するため、パス参照を絶対パスから相対パスに変更する必要があることです。

相対パス参照のすべての可能な繰り返しを試しましたが、うまくいかないようです。フォルダーは、単語ドキュメントがある場所の単なるサブディレクトリです。

上記のコードを絶対パス参照ではなく相対パスに変更する方法について、誰もが手がかりを得ましたか?

4

1 に答える 1

0

私はこのようなものがあなたが探しているものかもしれないと思います：

FolderName = ActiveDocument.Path & "\SubFolder"

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

ドキュメントがアクティブなものであると仮定すると、そうでない場合は、Documentsコレクションを検索して正しいドキュメントを探す必要があります。

于 2011-10-14T09:08:11.213 に答える