Word VBA 使用 VBA 替代单词突出显示

Question

您好，场景如下：我需要以红色和绿色交替的颜色突出显示单词，并且我有以下已经可以使用的代码。问题是，如何在不使用 Mod 或 Modulo 运算符的情况下完成此操作？它还应该使用范围。欢迎任何建议！谢谢你们！

调用函数的模块：

Sub Test()
'If to call the function
If (altHighlight(ActiveDocument.Range)) = True Then MsgBox "Alternate Highlighting Done!"

End Sub

用于交替突出显示的函数：

Function altHighlight(R As Range) As Boolean
    Dim eachWord As Range
    Dim count As Integer

    For Each eachWord In R.Words
        If count Mod 2 = 0 Then
            eachWord.HighlightColorIndex = wdRed
        Else
            eachWord.HighlightColorIndex = wdGreen
        End If
        count = count + 1
    Next
    altHighlight = True
End Function

Answer 1

在计算机能够快速进行除法之前，有两种常见的方法来交替事物。

当整数递增时，其最低有效位将在 0 和 1 之间交替。您可以使用按位 AND 运算符来选出该位：

Function altHighlight(R As Range) As Boolean
    Dim eachWord As Range
    Dim count As Integer

    For Each eachWord In R.Words
        If count And 1 = 0 Then
            eachWord.HighlightColorIndex = wdRed
        Else
            eachWord.HighlightColorIndex = wdGreen
        End If
        count = count + 1
    Next
    altHighlight = True
End Function

由于您实际上并未计算范围内的项目，因此您可以使 count 本身在 0 和 1 之间切换：

Function altHighlight(R As Range) As Boolean
    Dim eachWord As Range
    Dim count As Integer

    For Each eachWord In R.Words
        If count = 0 Then
            eachWord.HighlightColorIndex = wdRed
        Else
            eachWord.HighlightColorIndex = wdGreen
        End If
        count = 1 - count
    Next
    altHighlight = True
End Function