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

运行结果

相关推荐
Eiceblue17 小时前
Python 在Word中查找并替换文本
vscode·python·word·pip
开开心心就好1 天前
自定义屏幕显示方向的实用软件
java·服务器·python·eclipse·pdf·word·excel
zhou周大哥1 天前
word,ppt,pdf 转图片
pdf·word·powerpoint
荷包蛋大王iovo1 天前
计算机二级考前急救(Word篇)
word·上岸·计算机二级·抱佛脚
才疏学浅,努力修炼1 天前
批量处理word里面表格单元格中多余的回车符
word
猿大师办公助手2 天前
Web网页内嵌福昕OFD版式办公套件实现在线预览编辑PDF、OFD文档
前端·pdf·word
编程的大耳朵2 天前
Java 实现将Word 转换成markdown
java·word
小周同学:2 天前
vue将页面导出成word
前端·vue.js·word
老友@2 天前
从 Word 到 HTML:使用 Aspose.Words 轻松实现 Word 文档的高保真转换
java·后端·性能优化·html·word·aspose·格式转换
九月十九2 天前
java使用aspose添加多个图片到word
java·word