Sub 批量修改表格为自适应宽度()
'
' 批量修改表格为自适应宽度 宏
'
'
Dim tempTable As Table
Application.ScreenUpdating = False
If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then
MsgBox "文档已保护,此时不能选中多个表格!"
Exit Sub
End If
For Each tempTable In ActiveDocument.Tables
tempTable.AutoFitBehavior (wdAutoFitWindow)
Next
End Sub
宏批量修改word表格为自适应宽度
阅读 83
阅读 306
阅读 284
推荐阅读
阅读 1,578
阅读 1,667
阅读 5,321
阅读 1,577
阅读 1,992
阅读 2,219
阅读 1,800
阅读 1,634
阅读 1,194
阅读 2,340