竭诚为您提供优质文档/双击可除word选择所有表格篇一：批量操作word表格一、批量选择word表格subkonggs()dimmytableastableapplication.screenupdating=FalseForeachmytableinactivedocument.tablesmytable.Range.editors.addwdeditoreveryonenextactivedocument.selectalleditableRanges(wdeditoreveryone)activedocument.deletealleditableRanges(wdeditoreveryone)application.screenupdating=true116endsub二、实现同时将一个word文档中的所有表格执行“自动调整——根据窗口调整表格”操作subdimodocasdocumentdimotableastablesetodoc=documents.open("d:\test\sr.doc")指定文件路径Foreachotableinodoc.tablesotable.autoFitbehavior(wdautoFitwindow)根据窗口调整内容nextmsgbox"完成！"endsub三、word文档中选择所有表格假如word文档中有多个表格，需要一次性同时选择做一些设置，该如何运用简便方法做到呢？方法如下：1.按alt+F11键，开启Vba程序窗口2.菜单栏→“插入”菜单→“模块”，在其中放入如下代码。或者录制宏也可以。optionexplicitsubse216lectalltable()dimtemptableastableapplication.screenupdating=FalseForeachtemptableinactivedocument.tablestemptable.Range.editors.addwdeditoreveryonenextactivedocument.selectalleditableRangeswdeditoreveryoneactivedocument.deletealleditableRangeswdeditoreveryoneapplication.screenupdating=trueendsub3.运行代码就可以选中所有表格了四、把所有表格则设置缩进为0，居中对齐subaa_no_indent_table表缩进为0()dimssastableaa_no_indent_table表缩进为0Foreachssinactivedocument.tablesss.Range.paragraphFormat.characterunitFirstlineindent=0取消字符单位的首行缩进316ss.Range.paragraphFormat.Firstlineindent=0取消取行缩进nextendsub这个不用宏，直接用格式刷就能办到。弄好了一个格子的坐缩进，双击格式刷，刷其他的所有（拉黑）即可。下面的表格也带着刷子去操作一下就行了。篇二：wordVba全选文档内所有表格的代码sub全选所有表格()全选所有表格macrodimtemptableastableapplication.screenupdating=False判断文档是否被保护ifactivedocument.protectiontype=wdallowonlyFormFieldsthenmsgbox"文档已保护，此时不能选中多个表格！"exitsubendif删除所有可编辑的区域416activedocument.deletealleditableRangeswdeditoreveryone添加可编辑区域Foreachtemptableinactivedocument.tablestemptable.Range.editors.addwdeditoreveryonenext选中所有可编辑区域activedocument.selectalleditableRangeswdeditoreveryone删除所有可编辑的区域activedocument.deletealleditableRangeswdeditoreveryoneapplication.screenupdating=trueendsub篇三：word中表格编辑技巧大