アクティブウィンドウ（ドキュメントファイル）のパス

ＶＢ初心者です。
ＶＢ等でアクティブウィンドウのパスを取得する方法を探しています。
タイトルであればGetWindowTextで取得で可能ですし、
アプリケーションのパスであれば、
　http://sumishiro.blogspot.jp/2009/09/blog-post_3 …が参考になりました。　
しかしドキュメントファイルのパスを取得する方法がどうしてもわかりません。
例えば、ワードでtest.docxを開いているとき、そのウィンドウハンドルからwinword.exeのフルパスでなく、test.docxのフルパスを取得する方法です。（ワード、エクセル等だけでなく画像ビューアーが画像ファイルを開いているとき、その画像ファイルのフルパスの取得）
どうぞよろしくお願いいたします。

No.1 ベストアンサー 回答者： redfox63 回答日時： 2014/11/07 23:50

アプリ側で 取得するためのインターフェースが用意されていないのであれば無理かも …

VB6とかでWordを対象としてやるなら

dim obj as Variant
set obj = GetObject(,"word.application")
if not obj is nothing then
　　MsgBox obj.Documents(1).FullName
end if

といった具合で …

obj が Word
Documentsが Word側で用意したプロパティ
FullNameが文書へのパス

この回答へのお礼

ありがとうございます。やってみたらできました。とりあえずofficeアプリから始めます。画像ファイルについては今後研究します。

お礼日時：2014/11/11 06:24