【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
0
