またまたＷｏｒｄの蛍光ペンのマクロです！
自分が後でチェックしたい部分にマーキングするとき、特定の文字を全文から探し出して、一気にマーキングできると便利です。
たとえば、「請求項」「図」という単語に、一気に蛍光ペンを付与したりすると、明細書のチェックが多少楽になります。多少ね（笑）
そこで、マクロの登場です。
↓のマクロは、選択した文字の、全文から検索して、現在選択している蛍光ペンを付与します。
したがって、無色を選択していると、選択した文字の蛍光ペンが解除されます。
Sub 選択した文字に蛍光ペン()
‘
‘ 選択した文字に、現在の蛍光ペンの色を、全文に付与する
Dim Message, Title, Default, MyValue
Dim MyString As String
置換ボックス初期化
If Selection.Start = Selection.End Then
Message = “蛍光ペン付与ワードを入力して下さい。”
Title = “キーワードの入力”
MyString = InputBox(Message, Title)
Else
MyString = Selection.Text
End If
Selection.Collapse
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Highlight = True
With Selection.Find
.Text = MyString
.Replacement.Text = MyString
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = True
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
置換ボックス初期化
End Sub
実際に実行した画面です！
「Selection」を選択します。
「Selection」を選択して、マクロを実行してみました。
すると、
このように、全文に「Selection」に赤色の蛍光ペンが付与されました！
こんな感じで、いろいろと蛍光ペンを活用して、自己チェックを容易にするなど、視覚的に文章作成の支援をして、効率アップや品質アップしましょう！
