批量删除 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 Long

    textToFind = "备注"  ' 替换为你想删除的关键词

    For Each tbl In ActiveDocument.Tables
        For i = tbl.Rows.Count To 1 Step -1  ' 倒序遍历避免跳过
            If InStr(tbl.Rows(i).Range.Text, textToFind) > 0 Then
                tbl.Rows(i).Delete
            End If
        Next i
    Next tbl

    MsgBox "完成：包含关键字 '" & textToFind & "' 的行已删除。"
End Sub

✅ 第二步：运行宏

1. 回到 Word 主界面

2. 按 Alt + F8 打开“宏”窗口

3. 选择你刚才的宏，比如 DeleteThirdRowFromEachTable 或 DeleteRowsWithSpecificText

4. 点击 运行

📌 注意事项

• 建议备份原文件，避免误删。

• 如果 Word 报“宏已禁用”，你需要启用宏（文件 > 选项 > 信任中心 > 信任宏）。

• 支持处理表格中跨页或跨节的结构，但嵌套表格不支持。

• 如果你想只处理某一页或某个段落区域内的表，也可以加条件判断。

删除表格的 8， 10 ， 11行:

Sub DeleteRows8_10_11_FromEachTable()
    Dim tbl As Table
    Dim rowCount As Integer

    For Each tbl In ActiveDocument.Tables
        rowCount = tbl.Rows.Count

        ' 检查是否有足够的行
        If rowCount >= 11 Then
            tbl.Rows(11).Delete
            tbl.Rows(10).Delete
            tbl.Rows(8).Delete
        ElseIf rowCount >= 10 Then
            tbl.Rows(10).Delete
            tbl.Rows(8).Delete
        ElseIf rowCount >= 8 Then
            tbl.Rows(8).Delete
        End If
    Next tbl

    MsgBox "完成：已删除每张表的第 8、10、11 行（如果存在）。"
End Sub

执行结果：