ExcelVBAマクロについて確認させてください。

質問

ExcelVBAマクロについて確認させてください。

1）Wordファイルを開く
2）ファイルであるキーワードを検索して、そのキーワードを赤色に塗りつぶす
3）そのWordファイルを別名で保存
3）そのキーワードが存在するページを表示する

プログラムを作成したいですが、いい案があればご教授いただきたく思います。

回答No.1

HohoPapa

キーワードが複数ヒットした場合の動きが未詳です。
複数あったら、全数を対象にしてみました。
また、最初にヒットしたページを表示しました。

Option Explicit

Sub Test2()
　Dim objWord As Word.Application
　　'Microsoft Word xx Object Library 参照設定
　Dim wdDoc As Word.Document

　Const MyKey = "あいうえお"
　Const MyDir = "C:\OKWave\word"

　Set objWord = CreateObject("Word.Application")
　objWord.Visible = True
　objWord.Activate
　Set wdDoc = objWord.Documents.Open(MyDir & "\" & "Test1.docx")

　Do
　　With objWord.Selection
　　　With .Find
　　　　.Text = MyKey
　　　　If .Execute = False Then Exit Do
　　　End With
　　　.Range.Font.ColorIndex = wdRed　'wdYellow
　　End With
　Loop

　wdDoc.SaveAs2 Filename:=MyDir & "\" & "Test1x.docx"
　wdDoc.Close
　Set wdDoc = objWord.Documents.Open("C:\OKWave\word\Test1x.docx")

　With objWord.Selection
　　With .Find
　　　.Text = MyKey
　　　.Execute
　　End With
　End With

　Set objWord = Nothing
End Sub