沫沫金提供：word文档批量选择表格【启用宏】

上百上千表格，需要全部设置大小。手动就废了

记录这个word批量选择表格的方法

ALT+F8,打开宏对话框，创建名为SelectAllTables的宏

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

<code>Sub SelectAllTables()</code>

<code>   </code><code>Dim</code>

<code>tempTable As Table</code>

<code>   </code> 

<code>   </code><code>Application.ScreenUpdating = False</code>

<code>   </code><code>'判断文档是否被保护</code>

<code>   </code><code>If</code>

<code>ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then</code>

<code>       </code><code>MsgBox </code><code>"文档已保护，此时不能选中多个表格！"</code>

<code>       </code><code>Exit Sub</code>

<code>   </code><code>End If</code>

<code>   </code><code>'删除所有可编辑的区域</code>

<code>   </code><code>ActiveDocument.DeleteAllEditableRanges wdEditorEveryone</code>

<code>   </code><code>'添加可编辑区域</code>

<code>   </code><code>For Each</code>

<code>tempTable In ActiveDocument.Tables</code>

<code>       </code><code>tempTable.Range.Editors.Add wdEditorEveryone</code>

<code>   </code><code>Next</code>

<code>   </code><code>'选中所有可编辑区域</code>

<code>   </code><code>ActiveDocument.SelectAllEditableRanges wdEditorEveryone</code>

<code>   </code><code>Application.ScreenUpdating = True</code>

<code>End Sub</code>

拷贝，运行。等待选中结束切换到文档，即可看到全部选择后的效果。

本文转自 沫沫金 51CTO博客，原文链接：http://blog.51cto.com/zl0828/1871045，如需转载请自行联系原作者