突出显示用希伯来语编写的Word文档中用户输入的重复内容

Question

我试图突出显示基于用户输入的重复内容，用深红色（颜色不重要）。

我运行了用希伯来语编写的Word文档中的代码，它似乎失败了。我用英文文本运行它，它起作用了。不幸的是，任务是让代码以希伯来语而不是英语运行。

当代码出现时，它显示'？？？？？？？？'在用户输入值中，当用户在调试期间输入希伯来文文本时。

似乎不支持字符类型，如何使字符类型支持希伯来文？它是不同的Unicode吗？

Sub HighlightDupl()

    Dim UserInput As String
    Dim SentArray() As String
    Dim n As Long, i As Long
    Application.ScreenUpdating = False

    UserInput = InputBox("הדבק משפט לבדיקת כפילויות -- Paste sentence to check for duplicates", "הַצהָרָה -- Statement")
    ' Check if input is empty, if yes - quit program
    If UserInput Is Nothing Then Exit Sub

    TargetList = Array(UserInput)

    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 = wdDarkRed
            Loop

        End With
    Next

End Sub

代码中的希伯来语也没有正确阅读，所以我从运行的代码中删除了它，现在我把它放在那里作为希伯来语文本的参考。

最近，当试图再次处理程序时，代码给出了一些运行时错误，如类型不匹配。过去几周有没有更新突然让我的代码出错？

之后，我将UserInput变量更改为变体类型，并取得了一些进展，但代码没有按预期运行。内容将主要是希伯来文，但也可能有数字。

我还尝试将输入语言和校对语言更改为希伯来语。该文件混合了英语和希伯来语。我是否应该先删除所有的英语才能让它工作？

Answer 1

一般来说，您可以使用通配符查找/替换，其中：

Find = (<*>) \1
Replace = ^&

您可以将高光颜色设置为您喜欢的任何颜色。不需要宏。

上述通配符Find/Replace将查找任何由空格分隔的重复单词对（希伯来语或其他），而无需指定相关单词。

要通过VBA输入框使用Unicode（例如希伯来语）输入，您需要做两件事：

>

在Windows控制面板中，选择“区域”

在VBA编辑器中，选择“工具”