批量处理word里面表格单元格中多余的回车符

实现代码

Sub DeleteTableCarriageReturns()
    Dim oTbl As Table
    Dim oCell As cell
    Dim oRng As Range
    
    ' 遍历文档中所有表格
    For Each oTbl In ActiveDocument.Tables
        ' 遍历表格中的每个单元格
        For Each oCell In oTbl.Range.Cells
            Set oRng = oCell.Range
            oRng.End = oRng.End - 1 ' 排除单元格结束标记
            
            ' 在单元格范围内执行替换
            With oRng.Find
                .Text = "^p"    ' 匹配段落标记
                .Replacement.Text = ""
                .Forward = True
                .Wrap = wdFindStop  ' 仅在当前范围操作
                .Execute Replace:=wdReplaceAll
            End With
        Next oCell
    Next oTbl
End Sub

代码使用方法见批量处理word里面表格的空白行