表调整大小需要太长时间

Question

For Each Table In ActiveDocument.Tables 
    Table.AutoFitBehavior wdAutoFitWindow
Next Table

这是我调整word文档中所有表格的代码。然后我在他们周围放了一个边框......

For Each Table In ActiveDocument.Tables
With Table
    .Borders(wdBorderTop).LineStyle = wdLineStyleSingle
    .Borders(wdBorderLeft).LineStyle = wdLineStyleSingle
    .Borders(wdBorderBottom).LineStyle = wdLineStyleSingle
    .Borders(wdBorderRight).LineStyle = wdLineStyleSingle
End With
Next Table

大约在表格列表的一半处，在绘制框之前不会重新调整表格的大小。 它几乎就像重新调整表格大小所花费的时间一样......任何想法？

Answer 1

如果在绘制线条之前将文件保存在VBA代码中，则会有足够的时间来调整表格的大小。