【Word VBA】黒塗り文書作成マクロ▽ソースコード

Option Explicit

Option Base 0

'

Public Sub 黒塗り文書作成マクロ()

   '---------------------------------------------------------------------------

    Dim rngArea As Range

    '

    Set rngArea = ActiveDocument.Range(0, 0)

    '蛍光ペン部分を検索

    With rngArea.Find

        .Text = ""

        .Forward = True

        .Wrap = wdFindStop

        .Highlight = True

    End With

    '蛍光ペンの色を変更

    Do While rngArea.Find.Execute = True And rngArea.Text <> ""

       If rngArea.HighlightColorIndex = wdBlack Then

          rngArea.HighlightColorIndex = wdYellow

       Else

          rngArea.HighlightColorIndex = wdBlack　　　　 '←黒塗り

       End If

    Loop

End Sub