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

相关推荐
RainSerein20 小时前
Laravel8中使用phpword生成word文档
word·php·laravel
qq_393828221 天前
办公文档批量打印器 Word、PPT、Excel、PDF、图片和文本,它都支持批量打印。
windows·word·powerpoint·excel·软件需求
_oP_i11 天前
实现 “WebView2 获取word选中内容
开发语言·c#·word
LENG_Lingliang11 天前
word出现由WPS切换后公式异常无法删除的情况处理
word·wps·mathtype
贤和兄11 天前
使用docx4j 实现word转pdf(linux乱码处理)
linux·pdf·word
开开心心就好12 天前
高效批量转换Word到PDF的方法
javascript·安全·智能手机·pdf·word·objective-c·lisp
response_L12 天前
麒麟v10、uos系统在线批量生成pdf文件
java·pdf·word·pageoffice·在线编辑
清风细雨_林木木13 天前
私有 Word 文件预览转 PDF 实现方案
pdf·word
一只秋田犬13 天前
基于 Apache POI 实现的 Word 操作工具类
word
清风细雨_林木木14 天前
.docx 和 .doc 都是 Word 文档格式的区别
word