Word、特定の文字を網掛けにする方法について

Wordで全ての文に一気に"●"(1文字)と、"〓"で囲まれた文字を網掛けにする方法を教えていだけませんか。

例：あいうえお●あいうえお●あいうえお〓かきくけこ〓あいうえおあいう●えお。
(●と〓かきくけこ〓を網掛けにしたい)

VBAのコードが分かる方、もしくは、VBAではなくてもできるようでしたら、その方法をどなたか教えてください。
カチカチとマウスで選択して網掛けボタンを押すという方法では時間がかかってしまうため、困っています。
よろしくお願いいたします。

No.1 ベストアンサー 回答者： enunokokoro 回答日時： 2019/04/07 08:12

一気にとなるとマクロで処理することになりますが、基本は検索で

対応できますよ。
[高度な検索]で[検索]ダイアログを出して、[ワイルドカード]へと
チェックを入れます。

　[検索する文字列]に　〓*〓

これで、"〓"で囲まれた文字を検索できます。
http://www.office-qa.com/Word/wd211.htm
[検索する場所]で[メイン文書]を指定。
検索対象が選択されたら[網掛け]ボタンを押します。
"●"(1文字)も同じ手順で作業します。

一応、マクロも書いておきます。

Sub ChangeShading()
　Dim myRange As Range
　Dim myKW(2) As String
　Dim i As Integer

　myKW(1) = "●"
　myKW(2) = "〓*〓"

　Set myRange = ActiveDocument.Content
　For i = 1 To UBound(myKW)
　myRange.SetRange Start:=0, End:=0

　　With myRange.Find
　　　.Text = myKW(i)
　　　.Forward = True
　　　.MatchWildcards = True
　　　.Wrap = wdFindStop

　　Do While .Execute = True
　　　With myRange
　　　　.Font.Shading.Texture = wdTexture15Percent
　　　End With
　　Loop

　　End With
　Next i

　Set myRange = Nothing
End Sub

この回答へのお礼

とても助かりました！
しかも、両方書いていただき、本当にありがとうございました！！

お礼日時：2019/04/07 09:18