如何在MS Word中合并相似文本段？docx XML中<w:r>元素合并方案

当你将.docx文件重命名为.zip并查看内部XML时，会发现同一段落内的文本被无意义地拆分成多个<w:r>元素（即使这些元素的字体、格式完全一致）。要在Word应用内合并这些拆分的文本块，可通过以下方法实现：

一、手动处理（适合少量内容） #

1. 格式重置法：
   选中目标段落，点击「开始」选项卡→「字体」组右下角的小箭头打开字体对话框，临时修改任意格式（比如将字号调大1号），再改回原格式。Word会自动合并相同格式的连续文本块，对应XML中的<w:r>元素也会被合并。
2. 无格式粘贴法：
   选中拆分的文本区域，按Ctrl+X剪切，右键选择「粘贴选项」→「只保留文本」，之后重新设置所需格式即可。

二、批量处理（适合大量内容） #

使用Word VBA宏可以批量合并全文档内格式一致的连续文本块：

1. 打开Word，点击「开发工具」选项卡→「Visual Basic」（若未显示开发工具，可通过「文件→选项→自定义功能区」勾选开启）。
2. 在VBA编辑器中，右键点击当前文档→「插入」→「模块」，粘贴以下代码：

Sub MergeSimilarRuns()
    Dim doc As Document
    Dim para As Paragraph
    Dim i As Integer
    Set doc = ActiveDocument
    ' 遍历所有段落
    For Each para In doc.Paragraphs
        With para.Range
            i = 1
            ' 检查并合并相邻格式一致的文本块
            Do While i < .Runs.Count
                ' 对比字体和段落格式，一致则合并
                If .Runs(i).Font = .Runs(i + 1).Font And _
                   .Runs(i).ParagraphFormat = .Runs(i + 1).ParagraphFormat Then
                    .Runs(i).Text = .Runs(i).Text & .Runs(i + 1).Text
                    .Runs(i + 1).Delete
                Else
                    i = i + 1
                End If
            Loop
        End With
    Next para
End Sub

3. 点击运行按钮（绿色三角）执行宏，即可完成全文档的相似文本块合并。

三、是否有内置参数？ #

Word没有直接的内置参数可以一键合并已有的拆分文本块，但可以通过以下设置减少后续编辑时的文本拆分：

• 打开「文件→选项→高级→编辑选项」，取消勾选「保持格式跟踪」，这样Word在编辑时会减少因格式跟踪产生的不必要<w:r>元素拆分。

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