みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

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

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

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

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

投稿日時 - 2018-12-19 18:33:58

QNo.9569333

困ってます

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

ANo.1

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

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

投稿日時 - 2018-12-29 10:14:49

あなたにオススメの質問