批量删除 word文档里面多个相同表格的特定行

一个word中有很多张格式一样的表,我想把每张表的特定行删掉,有批量方法吗?

有两百张表需要删除特定行,给一个合适的方法,给具体详细步骤。

你有一个 Word 文档(.docx),其中有 200 张表格,每张表结构一样。你想要从 每张表中删除第 3 行(或含有特定文本的行)。

🛠 方案:使用 VBA 宏 批量操作 Word 表格

📋 第一步:打开开发工具

  1. 打开 Word 文档

  2. Alt + F11 打开 VBA 编辑器

  3. 在左侧窗格中选择 ThisDocument

  4. 粘贴下方代码

Sub DeleteThirdRowFromEachTable()
    Dim tbl As Table
    Dim i As Integer

    For Each tbl In ActiveDocument.Tables
        If tbl.Rows.Count >= 3 Then
            tbl.Rows(3).Delete
        End If
    Next tbl

    MsgBox "完成:已删除每张表的第 3 行。"
End Sub

📌 示例 2:删除包含特定文字(例如 "备注")的行

Sub DeleteRowsWithSpecificText()
    Dim tbl As Table
    Dim row As Row
    Dim cell As Cell
    Dim textToFind As String
    Dim i As Lon
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值