Word VBA

質問

※行頭の下線はプログラムに関係ありません、インデントと解釈ください。
Excel VBAで既に開いているワークブックの一覧取得は
Sub test()
__Dim wb As Workbook
__For Each wb In Workbooks
____Debug.Print wb.Name
__Next wb
End Sub
で成功したのですが、
Word VBAで
Sub test()
__Dim wb As Object
__For Each wb In CreateObject("Excel.Application").Workbooks
____Debug.Print wb.Name
__Next wb
End Sub
では何も表示されません。
問題解決のための知識を与えてくださる方、宜しくお願いします。

回答No.3

masnoske · ベストアンサー

[No.1] です。
すでに解決済みと思いますが、一応回答しておきますね。

Sub test()
__Dim wb As Object
__For Each wb In GetObject(, "Excel.Application").Workbooks
____Debug.Print wb.Name
__Next wb
End Sub

回答No.2

imogasi

全くおかしい。その分野に、不勉強な時に、類推でやるのも「あり」だが、簡単に行かないことが多い。
Ｂｏｏｋｓ、ＤｏｃｕｍｅｎｔｓのレベルはＦｉｌｅです。
（For Each wb In CreateObject("Excel.Application").Workbooksは珍奇です）
ワードの文書はＷｏｒｋｂｏｏｋｓではない。生兵法」。
そしてＶＢＡ（Ｗｏｒｄ）でやるより、VBScriptを勧める。
ーー
例
docmのファイル名一覧
Sub test01()
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Dim foldern As String
fldern = "C:\Users\??\XXX"
Dim folder
Set folder = fso.getFolder(fldern)
' ファイル一覧
Dim file
i = 1
For Each file In folder.Files
If fso.GetExtensionName(file) = "docm" Then
Debug.Print file.Name
End If
i = i + 1
If i > 1000 Then Exit For 　'必ずしも必要ない」
Next
End Sub
こんなところへ質問せずに、Ｇｏｏｇｌｅで「vbscript ファイル一覧」などで照会し、コードを真似し、一部修正したほうがまし。
ーー
このテーマに関しては、Ｄｉｒ関数を使う方法がある。ＷＥＢ照会して勉強！。

補足

勘違いされているようなので、
Excelのブックからデータを参照してWordへ書き込む処理をするにあたって・・・
Excel VBAからWord VBAに移行したプログラムです。
あくまでもWord VBAでExcelのブックからデータを参照する過程での処理です。
「ワードの文書はＷｏｒｋｂｏｏｋｓではない。」は百も承知です。

回答No.1

masnoske

CreateObject だと、そのExcelで開いたブックが操作対象になります。
別途開いたブックを操作対象にするなら、GetObject でExcel を捉える必要があったかと。