0

すべての単語を強調表示しようとしていますが、現時点では大文字と小文字を区別して強調表示することを避けたいと考えています。

Sub Highlight_words()
    Dim range As range
    Dim i As Long
    Dim TargetList

    TargetList = Array("Array", "highlight", "With", "range", "matchcase")
        ' put list of terms to find here

    For i = 0 To UBound(TargetList)

        Set range = ActiveDocument.range

        With range.Find
            .Text = TargetList(i)
            .Format = True
            .MatchCase = True
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False

            Do While .Execute(Forward:=True) = True
                range.HighlightColorIndex = wdYellow
            Loop
        End With
    Next
End Sub
4

1 に答える 1

2

.MatchCase = true を次のように変更します。

.MatchCase = False

乾杯

于 2013-08-14T14:47:16.343 に答える