如何用宏修改大量表格边框？

附件

sample.rar(2.94 KB)

2011-3-21 18:27, 下载次数: 7

复制内容到剪贴板

代码:

Sub test()
Application.ScreenUpdating = False
Dim tb As Table, bd As Border, cel As Cell
For Each tb In Tables
    For Each cel In tb.Range.Cells
        For Each bd In cel.Borders
            If bd.LineWidth = wdLineWidth150pt Then bd.LineWidth = wdLineWidth225pt
        Next
    Next
Next
Application.ScreenUpdating = True
End Sub