收到一word文稿，包括A、B两个word文档，A文档格式固定，需要将B文档内容插入A文档，但B文档包含了百十个表格，插入A文档后表格格式都发生了变化，逐一调整那工作量可是相当繁锁，于是上百度求解，还真是找到一解决方法，现将具体操作步骤与大家共享：

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.运行代码就可以选中所有表格了，命名并保存宏，关闭VBA 程序窗口，就发现所有的表格都选中了，如果想要再次调用调命令，可以选择（word2007为例）“视图-宏-查看宏”就可以再次运行。