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

才疏学浅，努力修炼

于 2025-03-26 21:28:23 发布

阅读量385

点赞数 1

文章标签： word

本文链接：https://blog.csdn.net/qq_55888300/article/details/146541502

版权

实现代码

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里面表格的空白行