批量处理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,再点击运行,即可完成空白行的批处理。

运行结果

相关推荐
usdoc文档预览7 小时前
Office文件内容提取 | 获取Word文件内容 |Javascript提取PDF文字内容 |PPT文档文字内容提取
javascript·pdf·word·ppt·office文件在线预览·word文档在线预览·ofd预览转pdf
AI偶然13 小时前
AI智能体|扣子(Coze)搭建【一键转换为Word/pdf/Excel】工作流保姆级教学
人工智能·pdf·word
zdlu1 天前
Deepseek输出的内容如何直接转化为word文件?
word·deepseek
救救孩子把1 天前
Spring Boot 集成Poi-tl实现动态Word文档生成
spring boot·word
生态笔记1 天前
word选中所有的表格——宏
经验分享·word
inxunoffice1 天前
如何一键批量删除多个 Word 文档中的页眉和页脚
word
生态笔记2 天前
word表格批量操作——宏
经验分享·word
inxunoffice2 天前
如何批量在多个 Word 文档末尾添加广告页面
word
开开心心就好2 天前
实用电脑工具,轻松实现定时操作
python·学习·pdf·电脑·word·excel·生活
Clarkbrave2 天前
PHP使用pandoc把markdown文件转为word
开发语言·word·php