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

相关推荐
揭老师高效办公18 小时前
在Word和WPS文字中添加的拼音放到文字右边
word·wps文字
_oP_i18 小时前
c# openxml 打开加密 的word读取内容
开发语言·c#·word
zzc9212 天前
用python自动标注word试题选项注意事项
python·自动化·word·办公·试题·自动化标记
梦想画家3 天前
Java 动态导出 Word 登记表:多人员、分页、动态表格的最佳实践
java·word·报表模板
诸葛大钢铁3 天前
PDF转Word的简单方法
pdf·word
飛_4 天前
Word Press富文本控件的保存
html·word·word press
海哥编程4 天前
Python 进阶(六): Word 基本操作
python·word
CodeForCoffee5 天前
Word for mac使用宏
word
2301_787725655 天前
HTML 转 Word API 接口
html·word
宝库盒6 天前
免费PDF转换器推荐2025最新版|PDF转Word/Excel/PPT/图片无水印不限大小 亲测可用 附下载地址
pdf·word·excel·格式转换