Word VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム

217 / 886

←次へ　｜　前へ→


	【692】ドキュメント内検索でヒットした箇所をハイライト表示させる

田吾作 - 10/6/2(水) 18:05 -


	引用なし

	パスワード

こんばんは。よろしくお願いいたします。

編集→検索
表示されるウィンドウで検索タブを選択し、
検索する文字列に
「検索したい文字列」
と指定し、
「見つかった全ての項目を強調表示する」
にチェックを入れ、
「すべて検索」
を実行する作業をマクロの自動記録したものです。

Sub Macro1()
'
' Macro1 Macro
' 記録日 2010/06/02 記録者 hoge
'
　　Selection.Find.ClearFormatting
　　With Selection.Find
　　　　.Text = "検索したい文字列"
　　　　.Replacement.Text = ""
　　　　.Forward = True
　　　　.Wrap = wdFindContinue
　　　　.Format = False
　　　　.MatchCase = False
　　　　.MatchWholeWord = False
　　　　.MatchByte = False
　　　　.MatchAllWordForms = False
　　　　.MatchSoundsLike = False
　　　　.MatchWildcards = False
　　　　.MatchFuzzy = True
　　End With
End Sub

このマクロの自動記録で生成したコードを実行しても何も
起こりません。
確かに「検索したい文字列」はドキュメント上に存在します。

マクロで行いたい作業は、
指定した文字列をドキュメント全体で検索し、ヒットした全箇所
をハイライト表示させる、ということです。

コードをどのように書き換えればいいでしょうか？
ご教示お願いいたします。

1,174 hits

▼

【692】ドキュメント内検索でヒットした箇所をハイライト表示させる 田吾作 10/6/2(水) 18:05