沫沫金提供：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，如需轉載請自行聯系原作者