ExcelVBAマクロでワードファイル読み込み方法

質問

ExcelVBAマクロについて確認させてください。
下記のように読み込みたいファイルをフォームで指定して
それを変数aに読み込ませています。
ですが、この方法ではテキスト文書しか読み込みが出来ないようです。
ワードファイルも読み込むように設定したいのですが可能でしょうか？

可能でしたらその方法をご教授いただけますでしょうか。

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Sub sample()

Dim buf As String
Dim a As String

buf = Application.GetOpenFilename(FileFilter:="テキスト文書,*.txt", Title:="サンプル") 'フルパスも含めたファイル名をbufに代入

With CreateObject("Scripting.FileSystemObject").GetFile(buf).OpenAsTextStream '指定したファイルを開く
a = .ReadAll 'テキスト文書の内容を文字列aに代入
.Close '指定したファイルを閉じる
End With

End Sub

回答No.1

mitarashi · ベストアンサー

自動記録すればいいじゃんと思ってやってみると、ExcelはWordのファイルを開けないんですね。当方もMS Officeと十数年の付き合いの中で初めてやってみたので、ニーズが無いって事でしょう。（xl2000とxl2010で確認）
検索すると、エクセルからワードを制御して、クリップボード経由でデータを取り込む方法が見つかりました。
どこまで再現されるものかは分かりませんが。
http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1039854345

お礼

返事が遅くなり、申し訳ございません。
早速のアドバイスありがとうございます。
読み込んだWordファイルをテキストに変換することで処理が可能になりました。

ありがとうございます。