通过VBA批量修改Word表格边框：将0.5磅边框调整为0.75磅

原代码的两个核心问题 #

• 仅通过ThisDocument.Tables(1)绑定了文档中的第一个表格，没有编写遍历全文档所有表格的逻辑，因此后续表格不会被处理
• 没有做边框原有粗细判断，直接强制将行的下边框设置为3/4pt，既会误改厚度大于3/4pt的合规边框，也漏处理了上边框、左右外边框、表格内部横竖分隔线等其他位置的边框

可用修复代码 #

Sub SetMinBorderWeight()
    Dim targetTable As Table
    Dim singleBorder As Border
    
    ' 遍历当前文档内的所有表格
    For Each targetTable In ThisDocument.Tables
        ' 遍历单个表格的全部边框
        For Each singleBorder In targetTable.Borders
            ' 仅将原粗细为1/2pt的边框调整为3/4pt，其余厚度边框保持不变
            If singleBorder.LineWidth = wdLineWidth050pt Then
                singleBorder.LineWidth = wdLineWidth075pt
            End If
        Next singleBorder
    Next targetTable
End Sub

代码逻辑说明 #

• 外层循环直接遍历文档的Tables集合，自动覆盖文档内每一张表格，不会出现漏处理的情况
• 内层循环遍历单张表格的Borders集合，自动覆盖外框上下左右、内部横竖分隔线所有边框位置，不需要逐行逐单元格遍历，运行效率更高
• 增加线宽判断逻辑：仅当边框线宽为系统常量wdLineWidth050pt（对应1/2pt厚度）时才执行修改，所有厚度大于等于3/4pt的边框都会保留原有设置，完全符合需求

运行宏前建议先备份原始文档，避免误操作后无法回退。

内容的提问来源于stack exchange，提问作者mankeeh