除非是整篇文档中都是表格,否则,你这个要求就需要用到VBA(宏命令)了。
给你一段代码,在word文档中创建宏,然后把以上代码复制粘贴到宏里边,然后运行这个宏,它就可以帮你一次选中文档中的所有表格了。代码如下(或者到百度文库里下载这个文档【word,全选文档中所有表格】):
Sub 全选所有表格() '
' 全选所有表格 Macro '
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
在word中怎么一次选中所有表格
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
保存完成后选择加载该宏即可。
如何选中word里的所有表格?
ctrl+F----->表格,即可一次性选择word中的所有表格。-----<注:这是一个错误的答案,抱歉。下面有正确的答案,往下看。>
针对此回答,引来不少人的质疑和嘲笑,非常抱歉和遗憾;因为当时自己有个类似的需求,得知有该方法,遇到该问题时,当时觉得和自己当时遇到的问题一样就回答了。确实我说的这个方法只能是一次性突出显示word里的包含表格的标题,且该表格所属的标题必须做了级别设定,而且只是在导航窗格里黄色突出显示而已,好处是能看出来有级别设定的表格有多少,不是选中。如下图。
另回答一下本问题:“如何一次性选中word里的所有表格“
1 将下面的脚本复制(在最后哦,也是网上找的)
2 word---视图---宏----查看宏----输入宏名:SelectAllTables----点击创建(参图1)
3 将脚本编辑窗口中的默认代码删掉,粘贴1步复制的脚本,保存并关闭(参图2)
4 word---视图---宏----查看宏----运行刚创建的宏(参图1)
在word中查看,所有表格已为选中状态。
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
word2010中的表格,一选中就是好几页的表格
这是好几页的表格实际为1个表格,你如果实际不需要的话,可以把表格按页分开,在一页的最后一行表格处,放置鼠标,然后插入分页符,或者快捷方式ctrl+enter回车。就会把表格分开了,如果分开的不理想可以回退重新分。分页符占位一行,表格会和原来的有点不一样,可以微调页边距就行了。
怎么样在word全选所有表格,即选中所有表格是他们的属性一样啊?越详细越好?
按Ctrl+A(全选),鼠标右键-段落,把“如果定义了文档网格,则与网格对齐”这个对钩去掉,然后你再调整表格高度输数就可以变化了
word2010中表格自动套用格式在哪里?
在Word2010的文件——Word选项——自定义——所有命令里面,打开的方法如下:
1、首先,打开Word2010,再依次点击左上角的文件图标——弹出菜单右下方的Word选项。
2、然后,在Word选项的界面点击左侧菜单列表中的自定义选项。
3、接着,在自定义的界面点击所有命令的选项。
4、之后,在所有命令的菜单列表中就可以看到表格自动套用格式样式,再依次点击表格自动套用格式样式——添加。
5、如图所示,在Word2010的左上方就有了表格自动套用格式样式的图标。
谁知道word 2010中 如何选中文档中的所有表格 注意 是所有表格 一次性选中 我要修改所有表格中的字体
用宏
Sub 宏1()
Dim mytable As Table
Application.ScreenUpdating = False
For Each mytable In ActiveDocument.Tables
mytable.Range.Editors.Add wdEditorEveryone
Next
ActiveDocument.SelectAllEditableRanges (wdEditorEveryone)
ActiveDocument.DeleteAllEditableRanges (wdEditorEveryone)
Application.ScreenUpdating = True
End Sub
如何在word2010设置整个表格水平相对于页面居中
表格此时在水平方向上偏右,即未水平居中,如下图所示:
把鼠标光标移动到表格上,此时表格的左上角就会出现一个标记,如下图所示:
点击该标记,即可选中整个表格,如下图所示:
点击“开始”选项卡,展开该选项卡,如下图所示:
点击“段落”中的“居中”命令,如下图所示:
表格本身已经水平居中了,如下图所示:
转载请注明出处51数据库 » word2010选中所有表格 word中怎么一次选中所有表格