272

view

◇ 追記 ◇

EXCEL VBAからワード文書を開き、
単語検索をされるという場合、
この 追記 前の記述部（下段）にある
ＵＲＬ先での、
ご質問者の質問欄内で提示しておられた

http://technet.microsoft.com/ja-jp/library/ee692875.aspx、

での、サンプルコ－ドを 参照していただければ幸いです。

Ｅｘｃｅｌ側に、
このサンプルコ－ドを応用したコ－ドを作成し、
検索させた場合、ワード文書のページ数を取得する必要もありますし、
Ａ列の複数セルを順次検索語とする、
繰り返し処理も、考える必要はあるでしょう。

参照設定を必要としないコ－ド記述で、
処理が可能となりますよう、
研究なさってください。

尚、回答に対する編集可能な期限が迫ってきましたので、
下記に、コ－ドの一例を提示しておきます。

▽ 参照設定が必要なコ－ド例...... 添付図における実行コ－ド ▽


' 参照URL http://www.simple-sys.com/blog/vbamatome/vbamatome007/

Sub 語句検索Test()
Dim wdObj As New Word.Application
Dim wdDoc As Word.Document
Dim wordFile As String
Dim i As Long, MaxRow As Long
Dim P As Long, L As Long

' Excel側 Sheet1 A列で最終行を確認
MaxRow = ThisWorkbook.Worksheets("Sheet1"). _
Range("A" & Rows.Count).End(xlUp).Row

' ※ 実際に、OpenするWord文書ﾌｧｲﾙ名をﾊﾟｽ名付きで入れます ※
wordFile = "D:OfficeExcel DATATestTest 0015文書 Sample.doc"

' Word文書を開きます
wdObj.Visible = True
wdObj.Documents.Open wordFile

Application.ScreenUpdating = False

With wdObj

For i = 1 To MaxRow

.Selection.Find.ClearFormatting
.Selection.HomeKey Unit:=wdStory

' 検索するキーワードを設定します
.Selection.Find.Text = ThisWorkbook.Worksheets("Sheet1"). _
Range("A" & i)

' 検索する方向を指定します
.Selection.Find.Forward = True

If .Selection.Find.Execute Then
With .Selection
P = .Range.Information(wdActiveEndPageNumber)
L = .Range.Information(wdFirstCharacterLineNumber)
ThisWorkbook.Worksheets("Sheet1").Range("B" & i) = P & "ペ－ジ == " & L & "行"
End With

Else
ThisWorkbook.Worksheets("Sheet1").Range("B" & i) = 0

End If

Next

End With

ThisWorkbook.Worksheets("Sheet1").Cells.Columns.AutoFit

Application.ScreenUpdating = True

' Word文書を閉じます
wdObj.Documents.Close
wdObj.Quit

End Sub


’ ※ 部分については、ご質問者が用意されたワード文書のパス名とファイル名を記述してください。



----------------------

追記 前 記述部分

老婆心ながら、
自らコ－ドを作成したり、
ネット上でサンプルを入手し、
動作させて、

ExcelVBAから,
Wordを操作するという処理の上で、
予め、
参照設定をしておく必要がある場合もありますので、
この点も、お考えに入れておいてください。

Visual Basic Editorのメニューで、

ツール→参照設定
「Microsoft Word ＸＸ.Ｘ Object Library」

の前の □ にチェックを入れ、
OKを押すという、
具合です。

※ 上記ライブラリ－名で
ＸＸ.Ｘ としてあるのは、
使用しているExcelのバ－ジョンによって、
数値が違ってくるからです。
ちなみに、Excel 2007 では12.0、
Excel 2010 では14.0が、確認できると思います。

下記ＵＲＬは過去に、当方がWord ⇒ Ｅｘｃｅｌ で単語検索用に
コ－ド提示し、回答した例です ↓ この場合は参照設定は必要ありませんでした
http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1055867790


尚、当方Excel2007およびＥｘｃｅｌ2010にて、
動作確認したコ－ドを、
提示したいとは思いましたが、
ワード文書のファイル名およびファイルの保存場所が不明であり、
更にＥｘｃｅｌのバ－ジョンやＯＳ名も質問内に記載されていないため、
この段階での提示は控えますので、
ご了承ください。



▽ 当方が、 Ｅｘｃｅｌ側からコ－ドを実行したイメ－ジ ▽