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

实现代码

vbnet 复制代码
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里面表格的空白行

相关推荐
seasonsyy8 小时前
怎么把wps中的word的批注全部删掉
word·wps
开开心心就好9 小时前
便携免安装,畅享近 30 种 PDF 文档处理功能
java·服务器·python·eclipse·pdf·word·excel
流形填表14 小时前
一键实现:谷歌表单转word(formtoword)
word
Eiceblue2 天前
Python 在Word中查找并替换文本
vscode·python·word·pip
开开心心就好2 天前
自定义屏幕显示方向的实用软件
java·服务器·python·eclipse·pdf·word·excel
zhou周大哥2 天前
word,ppt,pdf 转图片
pdf·word·powerpoint
荷包蛋大王iovo2 天前
计算机二级考前急救(Word篇)
word·上岸·计算机二级·抱佛脚
猿大师办公助手3 天前
Web网页内嵌福昕OFD版式办公套件实现在线预览编辑PDF、OFD文档
前端·pdf·word
编程的大耳朵3 天前
Java 实现将Word 转换成markdown
java·word