VBA无法识别复杂脚本文字及数字的Word加粗格式问题求助

原代码的问题分析 #

你的代码只识别英文加粗内容，核心问题有两个：

1. Words集合的拆分逻辑：Word对非拉丁语系文字、数字+标点的组合会拆分成多个独立的Word对象，比如加粗的18. तत्र...会被拆成18、.、तत्र...等多个部分，原代码逐个判断时可能因为格式判断逻辑遗漏整体内容。
2. Bold属性的取值逻辑：当一个Word对象内存在混合格式时，Bold属性返回wdUndefined（值为-1），而非True。原代码只判断=True，会漏掉这类存在加粗的内容。

解决方案：使用Find方法高效查找加粗内容 #

对于大文件，使用Word的Find方法直接匹配加粗格式是效率最高的方案，它能准确识别任何语言、字符类型的加粗内容，无需逐个遍历字符或单词。

示例代码 #

Sub ExtractAllBoldText()
    Dim targetDoc As Document
    Dim resultDoc As Document
    Dim searchRange As Range
    Dim extractedText As String
    
    ' 设置目标文档为当前激活的文档
    Set targetDoc = ActiveDocument
    ' 创建新文档用于输出结果（大文件建议用这种方式，避免频繁弹窗）
    Set resultDoc = Documents.Add
    Set searchRange = targetDoc.Content
    
    ' 配置查找规则：匹配所有加粗格式
    With searchRange.Find
        .ClearFormatting
        .Font.Bold = True
        .Forward = True
        .Wrap = wdFindStop ' 查找完整个文档就停止
        .Format = True ' 启用格式匹配
        ' 禁用其他不必要的匹配规则
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
    End With
    
    ' 遍历所有找到的加粗内容
    Do While searchRange.Find.Execute
        extractedText = extractedText & searchRange.Text & vbCrLf
    Loop
    
    ' 将结果写入新文档
    With resultDoc.Content
        .Text = "提取到的所有加粗内容：" & vbCrLf & vbCrLf & extractedText
        .Font.Name = "Arial Unicode MS" ' 确保非英文字符能正常显示
    End With
    
    Set targetDoc = Nothing
    Set resultDoc = Nothing
    Set searchRange = Nothing
End Sub

备选方案：修改Words集合遍历逻辑 #

如果你坚持使用Words集合遍历，可以调整判断条件，覆盖Bold属性为True和wdUndefined的情况：

示例代码 #

Sub CheckWordsForBold()
    Dim wordObj As Range
    Dim boldContent As String
    
    For Each wordObj In ActiveDocument.Words
        ' 跳过空白字符（比如空格、换行）
        If Trim(wordObj.Text) <> "" Then
            ' 判断是否存在加粗：True或wdUndefined都表示有加粗内容
            If wordObj.Bold <> wdFalse Then
                boldContent = boldContent & wordObj.Text & " "
            End If
        End If
    Next wordObj
    
    If boldContent <> "" Then
        MsgBox "加粗内容汇总：" & vbCrLf & boldContent
    Else
        MsgBox "未找到任何加粗内容"
    End If
End Sub

注意事项 #

• 处理大文件时，不要用MsgBox逐个输出内容，会严重降低效率，建议将结果写入新文档或文本文件。
• 对于非拉丁语系文字，确保代码中使用的字体支持该字符集（比如示例中的Arial Unicode MS），避免出现乱码。

内容的提问来源于stack exchange，提问作者Vikas Jain