嘿，我来帮你搞定这个问题！你的需求很明确——只合并带高亮格式、被换行拆分的零散文本，完全不改动非高亮内容对吧？先说说你现有代码里的几个小问题，再给你一个能正常运行的宏版本。

你现有代码的核心问题 #

• 用到了CondenseRange变量却没提前定义，VBA找不到这个对象，直接导致代码报错无法执行
• 嵌套的With块逻辑混乱，rngTemp.Find里又套了一层With CondenseRange.Find，导致查找范围完全出错
• 缺少遍历所有高亮区域的循环逻辑，只定义了一个起始范围，没法处理文档里所有的高亮文本

修正后的完整宏代码 #

Sub CondenseZap()
    ' CondenseZap Macro: 合并带高亮格式的零散段落，移除换行并整理空格
    Dim rngHighlight As Range
    Dim rngTemp As Range
    
    ' 初始化查找范围为整个文档
    Set rngTemp = ActiveDocument.Content
    
    With rngTemp.Find
        .ClearFormatting
        .Highlight = True ' 仅查找带高亮标记的内容
        .Forward = True
        .Wrap = wdFindStop ' 找到最后一个高亮区域后停止查找
        
        ' 循环遍历所有高亮区域
        Do While .Execute
            Set rngHighlight = rngTemp.Duplicate ' 复制当前找到的高亮区域，避免原范围被改动
            
            ' 第一步：把高亮区域内的段落换行符替换为空格
            With rngHighlight.Find
                .ClearFormatting
                .Text = "^p" ' 匹配Word的段落换行标记
                .Replacement.Text = " "
                .Execute Replace:=wdReplaceAll
            End With
            
            ' 第二步：合并区域内的多个连续空格为单个空格
            Do While InStr(rngHighlight.Text, "  ") > 0
                With rngHighlight.Find
                    .Text = "  "
                    .Replacement.Text = " "
                    .Execute Replace:=wdReplaceAll
                End With
            Loop
            
            ' 第三步：移除区域开头的多余空格（如果存在）
            If Len(rngHighlight.Text) > 0 Then
                If Left(rngHighlight.Text, 1) = " " Then
                    rngHighlight.Characters(1).Delete
                End If
            End If
        Loop
    End With
    
    MsgBox "高亮段落合并完成！", vbInformation
End Sub

代码关键逻辑说明 #

• 精准遍历高亮区域：用Do While .Execute循环逐个定位文档里的每一块高亮文本，确保不会遗漏任何需要处理的内容
• 只改动高亮内容：每次找到高亮区域后，所有替换操作都限制在该区域内，完全不会影响非高亮的文本（比如你提到的“BFS '9”和“solvency.”之间的换行绝对不会被改动）
• 自动整理格式：替换换行后自动合并多余空格，还会清理区域开头的无效空格，让合并后的文本更整洁

使用小贴士 #

1. 运行宏前务必先备份你的Word文档，避免意外修改
2. 打开Word的「开发工具」选项卡，把这段代码粘贴到VBA编辑器的模块中
3. 打开需要处理的文档，运行CondenseZap宏即可完成操作

这样应该就能完美实现你想要的效果啦！

备注：内容来源于stack exchange，提问作者Ayush Tripathi