如何一次性选中word文档中所有表格或图片？

stupid001 · 发表于 2018-3-21 22:10

duquancai · 发表于 2018-3-21 22:22

为什么要选中？？？？？？

stupid001 · 发表于 2018-3-21 22:27

统一调整表格格式

duquancai · 发表于 2018-3-22 08:11

stupid001 发表于 2018-3-21 22:27
统一调整表格格式

既然这样，用循环遍历表格，逐个处理表格（不必选中所有表格），能行吗？

40525299999 · 发表于 2018-3-22 14:04

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

413191246se · 发表于 2018-3-27 06:33

* 表格全选后，不一定能设置更多格式，也许，逐个表格循环更好。（效果是一样的）

Sub 表格全选()
Dim doc As Document, t As Table
Set doc = ActiveDocument
With doc
.DeleteAllEditableRanges wdEditorEveryone
For Each t In .Tables
t.Range.Editors.Add wdEditorEveryone
Next
.SelectAllEditableRanges wdEditorEveryone
.DeleteAllEditableRanges wdEditorEveryone
End With
End Sub

复制代码

*下面是《表格循环》宏（通用）：

Sub 表格处理_通用()
'功能：光标在表格中处理当前表格；否则处理所有表格！
Dim t As Table, i As Long
If Selection.Information(wdWithInTable) = True Then i = 1
For Each t In ActiveDocument.Tables
If i = 1 Then Set t = Selection.Tables(1)
t.Range.Font.Color = wdColorRed '红色
If i = 1 Then Exit For
Next
End Sub

复制代码

jier069114168 · 发表于 2018-5-28 16:23

413191246se 发表于 2018-3-27 06:33
* 表格全选后，不一定能设置更多格式，也许，逐个表格循环更好。（效果是一样的）

*下面是《表格循环》 ...

按照5楼的代码，确实可以选中所有表格。
但是，鼠标右击“根据窗口调整表格”是灰色的，无法设置。
你说的这个表格循环，貌似可以实现此功能
可是小弟不太会用这个通用模板。
求教---
我复制了你这个表格循环代码，运行没什么反应。

413191246se · 发表于 2018-5-28 23:44

楼主，你应该详细举例说明一下你选定表格后到底要设置哪些格式呢？

daibao88 · 发表于 2018-6-8 16:38

ActiveDocument.Tables(1).Range.Font.ColorIndex = 3

		自动登录	找回密码
密码			免费注册

[求助] 如何一次性选中word文档中所有表格或图片？

评分