批量操作word 表格.doc

《批量操作word 表格.doc》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、一、批量选择word表格Subkonggs()DimmytableAsTableApplication.ScreenUpdating=FalseForEachmytableInActiveDocument.Tablesmytable.Range.Editors.AddwdEditorEveryoneNextActiveDocument.SelectAllEditableRanges(wdEditorEveryone)ActiveDocument.DeleteAllEditableRanges(wdEd

2、itorEveryone)Application.ScreenUpdating=TrueEndSub 二、实现同时将一个word文档中的所有表格执行“自动调整——根据窗口调整表格”操作Subwww()   DimoDocAsDocument   DimoTableAsTable   SetoDoc=Documents.Open("D:testSr.doc")'指定文件路径   ForEachoTableInoDoc.Tables       oTable.AutoFitBehavior(wdAut

3、oFitWindow)'根据窗口调整内容   NextMsgBox"完成！"EndSub三、Word文档中选择所有表格假如Word文档中有多个表格，需要一次性同时选择做一些设置，该如何运用简便方法做到呢？方法如下：1.按Alt+F11键，开启VBA程序窗口2.菜单栏→“插入”菜单→“模块”，在其中放入如下代码。或者录制宏也可以。OptionExplicitSubSelectAllTable()DimtempTableAsTableApplication.ScreenUpdating=FalseForE

4、achtempTableInActiveDocument.TablestempTable.Range.Editors.AddwdEditorEveryoneNextActiveDocument.SelectAllEditableRangeswdEditorEveryoneActiveDocument.DeleteAllEditableRangeswdEditorEveryoneApplication.ScreenUpdating=TrueEndSub3.运行代码就可以选中所有表格了四、把所有表格则设置

5、缩进为0，居中对齐Subaa_no_indent_table表缩进为0()DimssAsTable'aa_no_indent_table表缩进为0ForEachssInActiveDocument.Tablesss.Range.ParagraphFormat.CharacterUnitFirstLineIndent=0'取消字符单位的首行缩进ss.Range.ParagraphFormat.FirstLineIndent=0'取消取行缩进NextEndSub这个不用宏，直接用格式刷就能办到。弄好了一个

6、格子的坐缩进，双击格式刷，刷其他的所有（拉黑）即可。下面的表格也带着刷子去操作一下就行了。