紧急更新 Word 表格宏工具 · Word Table Macro Toolkit

🚨 UPDATE NOTICE · 更新说明

SelectAllTables 已升级 / Upgraded

【中文】 旧版本使用单一 Range 从第一张表格横跨至最后一张表格，导致表格之间的所有正文段落被一并选中。新版本改为 For Each 逐表遍历，光标只经过表格本身，表格之间的内容完全不受影响，真正实现”只选表格”。GitHub仓库代码已更新。

中文

概述

一个轻量级的 Word VBA 宏模块，提供两个一键操作：

安装方法

1. 打开 Word 文档。
2. 按 Alt + F11 打开 VBA 编辑器。
3. 在左侧项目面板中右键单击文档 → 插入 → 模块。
4. 将 ThreeLineTable.bas 的全部内容粘贴到模块中。
5. 按 Ctrl + S 保存，并将文档另存为启用宏的格式（.docm）。

使用方法

按 Alt + F8，选择对应宏名，点击运行即可。

三线表样式说明

版本对比：SelectAllTables

旧版本行为

旧版本通过构建一个从第 1 张表格起始位置到第 N 张表格结束位置的单一连续 Range 来模拟”选中所有表格”：

' 旧版本：用一个大 Range 横跨所有表格Dim fullRange As RangeSet fullRange = doc.Range( _    doc.Tables(1).Range.Start, _    doc.Tables(tableCount).Range.End)fullRange.Select

问题： 这个 Range 会把表格之间的所有正文段落、图片、标题等内容一并选中，并非真正意义上的”只选表格”。

文档结构示意：[表格 1] ← 被选中 ✓  第一段正文 ← 也被选中 ✗（不应该）  第二段正文 ← 也被选中 ✗（不应该）[表格 2] ← 被选中 ✓  第三段正文 ← 也被选中 ✗（不应该）[表格 3] ← 被选中 ✓

新版本行为（当前版本）

新版本改用逐一遍历的方式，对每张表格单独调用 .Select，只访问表格本身，不触及表格之间的任何内容：

' 新版本：逐一遍历，只选表格For Each tbl In doc.Tables    tbl.SelectNext tbl

效果： 光标依次经过每一张表格，最终停留在最后一张表格上；表格之间的正文内容完全不受影响。

文档结构示意：[表格 1] ← 被选中 ✓  第一段正文 ← 不受影响 ✓  第二段正文 ← 不受影响 ✓[表格 2] ← 被选中 ✓  第三段正文 ← 不受影响 ✓[表格 3] ← 被选中 ✓（光标最终停留此处）

说明： Word 的选区模型为单一连续范围，从根本上不支持同时框选多个不连续对象。新版本通过逐表遍历的方式绕过了这一限制，确保只有表格内容被访问，实现了”只选表格”的预期效果。

完整对比表

' ============================================================'  Macro 1: SelectAllTables          — Select every table in the document'  Macro 2: ConvertToThreeLineTables — Convert all tables to three-line style' ============================================================Option Explicit' ------------------------------------------------------------'  Macro 1: Select All Tables' ------------------------------------------------------------Sub SelectAllTables()    Dim doc        As Document    Dim tbl        As Table    Dim tableCount As Integer    Set doc = ActiveDocument    tableCount = doc.Tables.Count    If tableCount = 0 Then        MsgBox "No tables found in this document.", vbInformation, "Notice"        Exit Sub    End If    ' Select each table one by one' Word does not support discontinuous selections,    ' so each call moves the cursor to that table.' All tables are visited; the last one remains selected.    For Each tbl In doc.Tables        tbl.Select    Next tbl    MsgBox tableCount & " table(s) found and selected.", vbInformation, "Done"End Sub' ------------------------------------------------------------'  Macro 2: Convert All Tables to Three-Line Style''  Three-line rules:'    Top border    — 1.5 pt thick'    Bottom border — 1.5 pt thick'    Row-1 bottom  — 0.75 pt thin  (header rule)'    All others    — removed' ------------------------------------------------------------Sub ConvertToThreeLineTables()    Dim doc        As Document    Dim tableCount As Integer    Dim i          As Integer    Set doc = ActiveDocument    tableCount = doc.Tables.Count    If tableCount = 0 Then        MsgBox "No tables found in this document.", vbInformation, "Notice"        Exit Sub    End If    For i = 1 To tableCount        Call ApplyThreeLineStyle(doc.Tables(i))    Next i    MsgBox tableCount & " table(s) converted to three-line style.", _           vbInformation, "Done"End Sub' ------------------------------------------------------------'  Helper: Apply three-line style to one table' ------------------------------------------------------------Private Sub ApplyThreeLineStyle(tbl As Table)    Dim rw As Row    Dim cl As Cell    Dim b  As Integer    ' Table-level borders (no diagonals — they are cell-only)    Dim tblB As Variant    tblB = Array(wdBorderTop, wdBorderBottom, wdBorderLeft, wdBorderRight, _                 wdBorderHorizontal, wdBorderVertical)' Cell-level borders (diagonals included)    Dim cellB As Variant    cellB = Array(wdBorderTop, wdBorderBottom, wdBorderLeft, wdBorderRight, _                  wdBorderDiagonalDown, wdBorderDiagonalUp)    ' Step 1 — Clear all table-level borders    For b = 0 To UBound(tblB)        tbl.Borders(tblB(b)).LineStyle = wdLineStyleNone    Next b' Step 2 — Clear all cell-level borders    For Each rw In tbl.Rows        For Each cl In rw.Cells            For b = 0 To UBound(cellB)                cl.Borders(cellB(b)).LineStyle = wdLineStyleNone            Next b        Next cl    Next rw    ' Step 3 — Top rule: 1.5 pt    With tbl.Borders(wdBorderTop)        .LineStyle = wdLineStyleSingle        .LineWidth = wdLineWidth150pt        .Color     = wdColorBlack    End With' Step 4 — Bottom rule: 1.5 pt    With tbl.Borders(wdBorderBottom)        .LineStyle = wdLineStyleSingle        .LineWidth = wdLineWidth150pt        .Color     = wdColorBlack    End With    ' Step 5 — Header rule (row 1 bottom): 0.75 pt    If tbl.Rows.Count >= 1 Then        For Each cl In tbl.Rows(1).Cells            With cl.Borders(wdBorderBottom)                .LineStyle = wdLineStyleSingle                .LineWidth = wdLineWidth075pt                .Color     = wdColorBlack            End With        Next cl    End IfEnd Sub

English

Overview

A lightweight Word VBA macro module with two one-click utilities:

Installation

1. Open your Word document.
2. Press Alt + F11 to open the VBA Editor.
3. Right-click your document in the Project pane → Insert → Module.
4. Paste the entire contents of ThreeLineTable.bas into the module.
5. Press Ctrl + S and save as a macro-enabled file (.docm).

Usage

Press Alt + F8, select a macro name, and click Run.

Three-Line Table Style

Version Comparison: SelectAllTables

Old behavior

The old version simulated “select all tables” by building a single continuous Range stretching from the start of Table 1 to the end of Table N:

' Old version: one large Range spanning all tablesDim fullRange As RangeSet fullRange = doc.Range( _    doc.Tables(1).Range.Start, _    doc.Tables(tableCount).Range.End)fullRange.Select

Problem: This Range inevitably captured everything between the tables — body paragraphs, headings, images — none of which should have been selected.

Document structure:[Table 1]  ← selected ✓  Paragraph ← also selected ✗ (unintended)  Paragraph ← also selected ✗ (unintended)[Table 2]  ← selected ✓  Paragraph ← also selected ✗ (unintended)[Table 3]  ← selected ✓

New behavior (current version)

The new version iterates through each table individually and calls .Select on it, touching only the table itself and leaving all surrounding content untouched:

' New version: iterate and select each table individuallyFor Each tbl In doc.Tables    tbl.SelectNext tbl

Result: The cursor visits each table in sequence and rests on the last one; content between tables is completely unaffected.

Document structure:[Table 1]  ← selected ✓  Paragraph ← untouched ✓  Paragraph ← untouched ✓[Table 2]  ← selected ✓  Paragraph ← untouched ✓[Table 3]  ← selected ✓ (cursor ends here)

Note: Word’s selection model is a single continuous range and fundamentally cannot hold multiple non-contiguous objects at once. The new approach works around this constraint by visiting each table individually, achieving the intended “tables only” behavior.

Full Comparison

' ============================================================'  Macro 1: SelectAllTables          — Select every table in the document'  Macro 2: ConvertToThreeLineTables — Convert all tables to three-line style' ============================================================Option Explicit' ------------------------------------------------------------'  Macro 1: Select All Tables' ------------------------------------------------------------Sub SelectAllTables()    Dim doc        As Document    Dim tbl        As Table    Dim tableCount As Integer    Set doc = ActiveDocument    tableCount = doc.Tables.Count    If tableCount = 0 Then        MsgBox "No tables found in this document.", vbInformation, "Notice"        Exit Sub    End If    ' Select each table one by one' Word does not support discontinuous selections,    ' so each call moves the cursor to that table.' All tables are visited; the last one remains selected.    For Each tbl In doc.Tables        tbl.Select    Next tbl    MsgBox tableCount & " table(s) found and selected.", vbInformation, "Done"End Sub' ------------------------------------------------------------'  Macro 2: Convert All Tables to Three-Line Style''  Three-line rules:'    Top border    — 1.5 pt thick'    Bottom border — 1.5 pt thick'    Row-1 bottom  — 0.75 pt thin  (header rule)'    All others    — removed' ------------------------------------------------------------Sub ConvertToThreeLineTables()    Dim doc        As Document    Dim tableCount As Integer    Dim i          As Integer    Set doc = ActiveDocument    tableCount = doc.Tables.Count    If tableCount = 0 Then        MsgBox "No tables found in this document.", vbInformation, "Notice"        Exit Sub    End If    For i = 1 To tableCount        Call ApplyThreeLineStyle(doc.Tables(i))    Next i    MsgBox tableCount & " table(s) converted to three-line style.", _           vbInformation, "Done"End Sub' ------------------------------------------------------------'  Helper: Apply three-line style to one table' ------------------------------------------------------------Private Sub ApplyThreeLineStyle(tbl As Table)    Dim rw As Row    Dim cl As Cell    Dim b  As Integer    ' Table-level borders (no diagonals — they are cell-only)    Dim tblB As Variant    tblB = Array(wdBorderTop, wdBorderBottom, wdBorderLeft, wdBorderRight, _                 wdBorderHorizontal, wdBorderVertical)' Cell-level borders (diagonals included)    Dim cellB As Variant    cellB = Array(wdBorderTop, wdBorderBottom, wdBorderLeft, wdBorderRight, _                  wdBorderDiagonalDown, wdBorderDiagonalUp)    ' Step 1 — Clear all table-level borders    For b = 0 To UBound(tblB)        tbl.Borders(tblB(b)).LineStyle = wdLineStyleNone    Next b' Step 2 — Clear all cell-level borders    For Each rw In tbl.Rows        For Each cl In rw.Cells            For b = 0 To UBound(cellB)                cl.Borders(cellB(b)).LineStyle = wdLineStyleNone            Next b        Next cl    Next rw    ' Step 3 — Top rule: 1.5 pt    With tbl.Borders(wdBorderTop)        .LineStyle = wdLineStyleSingle        .LineWidth = wdLineWidth150pt        .Color     = wdColorBlack    End With' Step 4 — Bottom rule: 1.5 pt    With tbl.Borders(wdBorderBottom)        .LineStyle = wdLineStyleSingle        .LineWidth = wdLineWidth150pt        .Color     = wdColorBlack    End With    ' Step 5 — Header rule (row 1 bottom): 0.75 pt    If tbl.Rows.Count >= 1 Then        For Each cl In tbl.Rows(1).Cells            With cl.Borders(wdBorderBottom)                .LineStyle = wdLineStyleSingle                .LineWidth = wdLineWidth075pt                .Color     = wdColorBlack            End With        Next cl    End IfEnd Sub