vba - 检测格式差异的最佳代码？

Question

我需要比较两个格式化的字符串。两者中的文本是相同的，只是格式不同，这意味着有些单词是粗体。代码应该告诉我粗体子字符串的位置是否不同，例如字符串的格式不同。 到目前为止，我尝试了一种字符到字符的方法，但它太慢了。

它是 MS Word 中的普通合法当前文本，每个字符串大约 10-500 个字符。两个人独立格式化字符串。

到目前为止我的代码:

Function collectBold(r As Range) As String
Dim chpos As Integer
Dim ch As Variant
Dim str, strTemp As String
chpos = 1
Do
If r.Characters(chpos).Font.Bold Then
    Do
        Dim boold As Boolean
        strTemp = strTemp + r.Characters(chpos)
        chpos = chpos + 1
        If (chpos < r.Characters.Count) Then boold = r.Characters(chpos).Font.Bold
    Loop While (boold And chpos < r.Characters.Count)
   str = str + Trim(strTemp) + "/"
   strTemp = ""
Else: chpos = chpos + 1
End If
Loop While (chpos < r.Characters.Count)
collectBold = str
End Function

此代码收集所有粗体子字符串 (strTemp) 并将它们合并为一个字符串 (str)，并用“/”分隔它们。该函数运行两个字符串进行比较，然后检查输出是否相同。

Answer 1

如果你只需要看它们是否不同，这个函数就可以做到:

Function areStringsDifferent(range1 As Range, range2 As Range) As Boolean
    Dim i As Integer, j As Integer

    For i = 1 To range1.Words.Count
        'check if words are different formatted
        If Not range1.Words(i).Bold = range2.Words(i).Bold Then
            areStringsDifferent = True
            Exit Function
        'words same formatted, but characters may not be
        ElseIf range1.Words(i).Bold = wdUndefined Then
            For j = 1 To range1.Words(i).Characters.Count
                If Not range1.Words(i).Characters(j).Bold = range2.Words(i).Characters(j).Bold Then
                    areStringsDifferent = True
                    Exit Function
                End If
            Next
        End If
    Next

    areStringsDifferent = False
End Function

它首先查看单词的格式是否不同......如果它们具有相同的格式但格式未定义，它会查看单词的字符。