☰

全局调整表格边框

tag-icon • tag-icon vba microsoft-word-2010
全局调整表格边框

我有一个非常大的 Word 文档，其中包含 100 个表格，其中所有边框的宽度都需要为 1 pt。

我如何使所有现有表都实现这一点？

答案1

为了保留除边框宽度之外的所有其他表格属性，VBA 宏是最好的解决方案，这肯定比手动更改文档中的每个表格更容易。

下面的宏 FixCellBorders 遍历文档中每个表的每个单元格，并将最小线宽设置为 1 点：

Sub FixCellBorders()
    ' Work through all tables in document
    For Each objTable In ActiveDocument.Tables
        ' Work through all cells in each table
        For Each objCell In objTable.Range.Cells
            ' Work through all borders in each cell
            For Each objBorder In objCell.Borders
                ' set line weight to 1.00 point
                objBorder.LineWidth = wdLineWidth100pt
            Next objBorder
        Next objCell
    Next objTable
End Sub

键入Alt+F11打开 VBA 编辑器。右键单击“ThisWorkbook”，然后选择插入 > 模块。将上述文本复制粘贴到编辑器中。按Ctrl+S保存电子表格，然后按 Alt+Q关闭 VBA 编辑器并返回 Excel。

从现在起，您可以前往开发人员窗格中，单击宏这将显示定义的宏，选择 FixCellBorders 并单击跑步。

更多详细信息请参阅：

相关内容