制表格式
Sub 批量修改表格() Dim tempTable As Table APPlication.ScreenUpdating = False If ActiveDocument.ProtectionType = wdAllowOnlyFormfields Then MsgBox “文档已保护,此时不能选中多个表格!” Exit Sub End If ActiveDocument.DeleteAllEditableRanges wdEditorEveryone For Each tempTable In ActiveDocument.Tables tempTable.Range.Editors.Add wdEditorEveryone Next ActiveDocument.SelectAllEditableRanges wdEditorEveryone ActiveDocument.DeleteAllEditableRanges wdEditorEveryone Application.ScreenUpdating = True End Sub
文章回顾
大家看了本文一次修改上百个表格,Word中批量修改所有表格格式样式的精彩教程资源内容,是不是对一次修改上百个表格,Word中批量修改所有表格格式样式了解更多,真心希望一次修改上百个表格,Word中批量修改所有表格格式样式能帮助到你, 小编会一直给你带来更多教程资源文章信息。