返回目录:word文档
1、打开word文档,切换到“视图”标签-点击“宏”下拉箭头-点击“查看宏”。
2、在弹出的宏创建对话框,copy输入宏名字(可以是中文),然后点击右侧“创建”按钮。
3、用所给的代码替换掉默认的内容:Sub SelectAllTables()、Application.ScreenUpdating = False '判断文档是否被保护 If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then MsgBox "文档已保护,此时不能选中多个表格!";
4、粘贴完代码后,直知接点击工具栏的运行按钮▶,此时文档中所有表格已经选中,关闭VBA编辑器。(再次运行宏的话,直接Alt+F8打开对话框,选中宏点击右侧“运行”)
5、回到文档,在“表格工具”-设计-设置框线粗细-边框下拉菜单里点击“所有边框”,如果点击一次“所有边框”是取消掉所道有表格的框线,接着再点一次“所有框线”即可。
6、最后再检查从前往后检查一下,这个设置好像会把表格单元格内斜线取消掉,需要重新加一下。
在wps中选中一个抄文档中所有表格的方法如下(以windows10系统的wps word2019版为例):
1、打开文档,先点击文档上方的十字架图标。
2、选中文档后,一直袭按住Ctrl不动,点击下一个文档的一个单元格知。
3、选中单元格后,按下点击表格左上方出现的十字架。
4、随后即可看到下一个表格也被选中了,即可依次选道中word文档中的所有表格了。
使用“宏”功能选择,方法如下:
复制以下脚本:
Sub SelectAllTables()
Dim tempTable As Table
Application.ScreenUpdating = False
'判断文档是否被保护
If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then
MsgBox "文档已保护,此时不能选中多个表格!"
Exit Sub
End If
'删除所7a64e59b9ee7ad94364有可编辑的区域
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
2.打开word-视图-宏(查看宏)
3.在“宏”对话框中,输入宏名“SelectAllTables”(自定义)点击【创建】按钮
4. 删除默认脚本,粘贴复制的脚本,保存并关闭“宏”对话框
5. 视图-宏-查看宏-运行
6. 稍等,word将选择该文档中全部的表格
1、在电脑桌面里找到需要编辑到文档,双击打开后点击视图-宏-查看宏。百
2、将宏的度对话窗口知打开之后,在宏名一栏下面输入名字,并点击创建。
3、然后在弹出来的窗口里面输入代码Sub SelectAllTables()、Application.ScreenUpdating = False '判断文档是否被保护 If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then MsgBox "文档已保护,此时不能选中多个道表格!",用专此段代码替换掉之前的默认代码。
4、将代码替换了之后在工具栏上面有一属个运行选项,点击它就可以直接将多个表格选中了,此时也可以将宏的这个编辑窗口关闭就行了。