作者：乔山办公网日期：
返回目录：word文档
在wps中选中一个文档来中所有表格的方法如下（以windows10系统的wps word2019版为例）：
1、打开文档，先点击文档上方的十字架图标。
2、选中文档后，一直源按住Ctrl不动，点击下一个文档的一个单元格。
3、选中单元格后，按下点击表格左上方出现的十字架。
4、随后即zhidao可看到下一个表格也被选中了，即可依次选中word文档中的所有表格了。
在工作过程中可能遇到这样的情况，一个很大的WORD文档中有许多个表格，需要对所有表格的某一项属性进行修改，但是一个表一个表的逐个修改实在太费时费力。那有没有一次性选中所有表格，然后一次全部修改的办法呢，答案是：有！不过要用到“宏”。方法是新建一个“宏”，代码如下：
Sub qxbg()
Dim tempTable As Table
Application.ScreenUpdating =
False
'判断文档是7a64e4b893e5b19e330否被保护
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
保存该宏之后，执行即可全部选中，然后就可以进行下一步操作了。
当表格很多，比如1000个表格，逐一删除是比较麻烦的，此时可以录制一个宏，赋予宏一个快捷键，然后按住宏快速键就可以一次自动删除文档中的所有表格，这样做的好处是快速，且不会影响其余文字图片等需保留内容的外观：7a64e58685e5aeb9333
下面分别以Word2003和2007为例来讲详细的操作：
Word2003:
1.在主菜单运行[工具==〉宏===〉录制新宏]命令===〉键盘==〉在[请按快捷键]位置按Alt+A（注意不是Ctrl+A，此快捷键要不和常用的Word快捷键冲突）==〉指定==〉关闭
2.这时会弹出一个小小的宏工具栏，表示开始录制宏了，按Ctrl+Home快捷键，然后按Ctrl+G快捷键，左边选[表格]，然后点[下一处]
3.在主菜单运行[表格===〉删除==〉表格]命令，点宏工具栏上的[停止]按钮完成宏的录制。
4.运行宏，也就是一直按住先前自定义的Alt+A快捷键不松手，直到表格全部自动删除。
好了，就算是几千个的表格也可以几十秒钟内删除了。
Word2007和2003录制宏原理一样，只是开始找宏的位置不一样：
1.点软件视窗左上角的圆形Office按钮==〉Word选项==〉常用===〉勾选[在功能区显示[开发工具]选项卡]==〉确定
2.切换到[开发工具]选项卡==〉录制宏
之后的操作和Word2003一样。
此解决方法的关键词：宏，快捷键，一直按住不放直到表格被全部删除。
1、打开word文档，切换到“视图”标签-点击“宏”下拉箭头-点击“查看宏”。
2、在弹出的宏创建对话框，输入宏名copy字（可以是中文），然后点击右侧“创建”按钮。
3、用所给的代码替换掉默认的内容：Sub SelectAllTables()、Application.ScreenUpdating = False '判断文档是否被保护 If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then MsgBox "文档已保护，此时不能选中多个表格！"；
4、粘贴完代码后，直接点击工具栏的运行按钮▶，此时文档中所有表格已经选中，关闭VBA编辑器。（再次运行宏的话，直接Alt+F8打开对话框，选中宏点击右侧“运行”）
5、回到文档，在“表格工具”-设计-设置框线粗细-边框下拉菜单里点击“所有边框”，如果点击一次zd“所有边框”是取消掉所有表格的框线，接着再点一次“所有框线”即可。
6、最后再检查从前往后检查一下，这个设置好像会把表格单元格内斜线取消掉，需要重新加一下。