一、批量选择word 表格
Sub konggs()
Dim mytable As Table
Application.ScreenUpdating = False
For Each mytable In ActiveDocument.Tables
mytable.Range.Editors.Add wdEditorEveryone
Next
ActiveDocument.SelectAllEditableRanges (wdEditorEveryone)
ActiveDocument.DeleteAllEditableRanges (wdEditorEveryone)
Application.ScreenUpdating = True
End Sub
二、实现同时将一个word文档中的所有表格执行“自动调整——根据窗口调整表格”操作
Sub www()
Dim oDoc As Document
Dim oTable As Table
Set oDoc = Documents.Open(\"D:\est\\Sr.doc\") '指定文件路径
For Each oTable In oDoc.Tables
oTable.AutoFitBehavior (wdAutoFitWindow) '根据窗口调整内容
Next
MsgBox \"完成！\"
End Sub
三、Word 文档中选择所有表格
假如 Word 文档中有多个表格，需要一次性同时选择做一些设置，该如何运用简便方法做到呢？
方法如下：
1.按 Alt+F11 键，开启 VBA 程序窗口
2.菜单栏→“插入”菜单→“模块”，在其中放入如下代码。或者录制宏也可以。
Option Explicit
Sub SelectAllTable()
Dim tempTable As Table
Application.ScreenUpdating = False
For Each tempTable In ActiveDocument.Tables
tempTable.Range.Editors.Add wdEditorEveryone
Next
ActiveDocument.SelectAllEditableRanges wdEditorEveryone
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
Application.ScreenUpdating = True
End Sub
3.运行代码就可以选中所有表格了
四、把所有表格则设置 缩进为0，居中对齐
Sub aa_no_indent_table表缩进为0()
Dim ss As Table 'aa_no_indent_table表缩进为0
For Each ss In ActiveDocument.Tables
ss.Range.ParagraphFormat.CharacterUnitFirstLineIndent = 0 '取消字符单位的首行缩进
ss.Range.ParagraphFormat.FirstLineIndent = 0 '取消取行缩进
Next
End Sub
这个不用宏，直接用格式刷就能办到。
弄好了一个格子的坐缩进，双击格式刷，刷其他的所有（拉黑）即可。下面的表格也带着刷子去操作一下就行了。