谁会一下子全选WORD文档中的所有表格，而不选文字？是对一个word文档中的上千表格全选

word中一次选定所有表格的操作方法 (2011-02-17 11:52:57)转载▼
标签： 杂谈 分类： 办公室那点事
在编辑一个较长的文稿时，如果需要改变所有表格的字体或格式等，逐个调整肯定很辛苦，可以一次选择所有表格一下子搞定当然就省好多事了。具体操作方法：
ALT+F8,打开宏对话框，创建名为SelectAllTables的宏。代码如下：
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

保存完成后选择加载该宏即可。

为什么只选表格不选择文字呢？那刚开始就不要加入文字！

ctri+a 全选