上百上千表格，需要全部设置大小。手动就废了
记录这个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
|
Sub SelectAllTables() Dim
tempTable As Table Application.ScreenUpdating = False
'判断文档是否被保护
If
ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then MsgBox "文档已保护，此时不能选中多个表格！"
Exit Sub
End If
'删除所有可编辑的区域
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
'添加可编辑区域
For Each
tempTable In ActiveDocument.Tables tempTable.Range.Editors.Add wdEditorEveryone
Next
'选中所有可编辑区域
ActiveDocument.SelectAllEditableRanges wdEditorEveryone
'删除所有可编辑的区域
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
Application.ScreenUpdating = True
End Sub |
拷贝，运行。等待选中结束切换到文档，即可看到全部选择后的效果。
本文转自 沫沫金 51CTO博客，原文链接：http://blog.51cto.com/zl0828/1871045，如需转载请自行联系原作者