![全局调整表格边框](https://linux22.com/image/1605319/%E5%85%A8%E5%B1%80%E8%B0%83%E6%95%B4%E8%A1%A8%E6%A0%BC%E8%BE%B9%E6%A1%86.png)
我有一个非常大的 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 并单击跑步。
更多详细信息请参阅: