批量处理word里面表格的空白行

1,随便打开一个word文档。

2,按下Alt + F11 VBA编辑器,在左侧的「工程资源管理器」窗口中找到Normal 项目,右键选择插入->模块。

弹出一下弹窗

3,输入一下代码

代码:

vbscript 复制代码
Sub RemoveEmptyTableRows()
    Dim tbl As Table
    Dim row As Row
    Dim cell As Cell
    Dim i As Long
    
    For Each tbl In ActiveDocument.Tables
        ' 从最后一行向前遍历,避免删除导致索引变化
        For i = tbl.Rows.Count To 1 Step -1
            Set row = tbl.Rows(i)
            Dim isEmptyRow As Boolean
            isEmptyRow = True
            For Each cell In row.Cells
                ' 去除单元格中的控制字符并检查是否为空
                Dim cellText As String
                cellText = Replace(Replace(cell.Range.Text, Chr(13), ""), Chr(7), "")
                If Trim(cellText) <> "" Then
                    isEmptyRow = False
                    Exit For
                End If
            Next cell
            If isEmptyRow Then
                row.Delete
            End If
        Next i
    Next tbl
    MsgBox "处理完成!"
End Sub

Ctrl+S保存一下

然后就可以关掉这个窗口,在回到word界面

4,返回Word界面,按下 Alt + F8,选择RemoveEmptyTableRows,再点击运行,即可完成空白行的批处理。

运行结果

相关推荐
CodeCraft Studio1 天前
文档处理控件Aspose.Words教程:从 C# 中的 Word 文档中提取页面
c#·word·aspose·aspose.word·word页面提取
索西引擎1 天前
Word 文字编辑状态下按回车换行后是非正文格式
word·办公
bu_shuo1 天前
Word中的批注显示与修订显示
word·批注·修订
流形填表2 天前
AI 助力:如何批量提取 Word 表格字段并导出至 Excel
开发语言·人工智能·word·excel·办公自动化
R-sz3 天前
导出word并且插入图片
开发语言·c#·word
wáng bēn3 天前
【java17】使用 Word 模板导出带替换符、动态表格和二维码的文档
java·word·itextpdf
小杨爱学习zb3 天前
如何将公式图片转换为公式格式到wps/word里面
word
干净的坏蛋3 天前
Microsoft Word 中 .doc 和 .docx 的区别
microsoft·word
码银3 天前
基于Java的Markdown到Word文档转换工具的实现
java·word
bing_1584 天前
Word 怎么让字变大、变粗、换颜色?
word