批量操作word 表格

一、批量选择word表格Subkonggs()DimmytableAsTableApplication.ScreenUpdating=FalseForEachmytableInActiveDocument.Tablesmytable.Range.Editors.AddwdEditorEveryoneNextActiveDocument.SelectAllEditableRanges(wdEditorEveryone)ActiveDocument.DeleteAllEditableRanges(wdEditorEveryone)Application.ScreenUpdating=TrueEndSub二、实现同时将一个word文档中的所有表格执行“自动调整——根据窗口调整表格”操作Sub()DimoDocAsDocumentDimoTableAsTableSetoDoc=Documents.Open(D:\test\Sr.doc)'指定文件路径ForEachoTableInoDoc.TablesoTable.AutoFitBehavior(wdAutoFitWindow)'根据窗口调整内容NextMsgBox完成！EndSub三、Word文档中选择所有表格假如Word文档中有多个表格，需要一次性同时选择做一些设置，该如何运用简便方法做到呢？方法如下：1.按Alt+F11键，开启VBA程序窗口2.菜单栏→“插入”菜单→“模块”，在其中放入如下代码。或者录制宏也可以。OptionExplicitSubSelectAllTable()DimtempTableAsTableApplication.ScreenUpdating=FalseForEachtempTableInActiveDocument.TablestempTable.Range.Editors.AddwdEditorEveryoneNextActiveDocument.SelectAllEditableRangeswdEditorEveryoneActiveDocument.DeleteAllEditableRangeswdEditorEveryoneApplication.ScreenUpdating=TrueEndSub3.运行代码就可以选中所有表格了四、把所有表格则设置缩进为0，居中对齐Subaa_no_indent_table表缩进为0()DimssAsTable'aa_no_indent_table表缩进为0ForEachssInActiveDocument.Tablesss.Range.ParagraphFormat.CharacterUnitFirstLineIndent=0'取消字符单位的首行缩进ss.Range.ParagraphFormat.FirstLineIndent=0'取消取行缩进NextEndSub这个不用宏，直接用格式刷就能办到。弄好了一个格子的坐缩进，双击格式刷，刷其他的所有（拉黑）即可。下面的表格也带着刷子去操作一下就行了。