如何替换Word表格中的chr(13)回车符并解决相关操作报错

报错原因 #

你遇到的"wrong number of argument or invalid property assignment"报错，通常由两类操作问题导致：

• 手动使用查找替换功能时，勾选了冲突的功能选项、特殊字符标识填写错误
• 使用VBA脚本执行替换时，Find.Execute方法传递了多余参数，或是属性赋值类型不匹配

方案1：手动查找替换（无代码，新手推荐） #

无需编写代码即可实现全文档所有表格的回车符批量替换：

• 打开目标Word文档，按下Ctrl+H调出「查找和替换」面板
• 点击面板右下角的更多按钮，勾选「使用通配符」选项
• 「查找内容」栏输入^13，该标识对应Word内的chr(13)回车符
• 「替换为」栏按需求填写：需要删除回车就留空，需要替换为空格就输入一个半角空格
• 点击「在以下项中查找」下拉菜单，选择「主文档中的表格」，将替换范围限定为所有表格内容
• 点击「全部替换」即可完成操作

方案2：VBA脚本批量替换（适用于多文档/高频操作场景） #

如果需要批量处理多个文档，用修正后的VBA脚本即可避免参数错误问题，操作步骤如下：

• 按下Alt+F11打开VBA编辑器，右键点击当前文档名称，选择「插入」→「模块」
• 在新模块中粘贴以下代码：

Sub 批量替换表格内回车符()
    Dim targetTable As Table
    Dim tableRange As Range
    '遍历当前文档所有表格
    For Each targetTable In ActiveDocument.Tables
        Set tableRange = targetTable.Range
        With tableRange.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = "^13" '对应chr(13)回车符
            .Replacement.Text = "" '替换内容，按需修改引号内内容即可
            .Forward = True
            .Wrap = wdFindStop
            .Format = False
            .MatchWildcards = False
            '严格使用标准参数调用，避免参数数量错误
            .Execute Replace:=wdReplaceAll
        End With
    Next
    MsgBox "所有表格回车符替换完成"
End Sub

• 按下F5运行脚本即可完成替换

后续操作提示 #

替换完成后再全选Word表格复制粘贴到Excel，就不会出现多余换行拆分单元格内容的问题。

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