WORD中有若干个表格，为了修改样式，能否一次性选中文档中全部表格呢？

ylaxsm · 发表于 2012-2-13 12:34

WORD中有若干个表格，为了修改成统一的某种样式，能否一次性选中文档中全部表格呢？

413191246se · 发表于 2012-2-13 12:50

本帖最后由 413191246se 于 2012-2-13 19:21 编辑

楼主想法好大胆！一次性选中所有表格，这个提法我从来没有见过。但我可以给你提供一个“处理所有表格”的宏（WORD 2003 VBA），一个表格一个表格地处理（不知楼主会不会应用宏按钮？），参见如下代码（必须要同时拷贝这3个宏到VBE中方可，但该宏仅对规则表表格有效）：（略）

413191246se · 发表于 2012-2-13 19:23

本帖最后由 413191246se 于 2012-2-13 19:24 编辑

试试：选择一个表格后，按住 CTRL 键不动，再选择其它表格。。。（文字也可以这样选，按住 SHIFT 键的话，对文字稍有不同。CTRL 键是单独选，SHIFT 键是连续选）

ylaxsm · 发表于 2012-2-13 13:12

这个程序太难了！！
我只是想让WORD中表格“自动套用XX样式”，每次只能选一个表格，然后点“自动套用XX样式”，太麻烦了……
我想一次就多选几个表格。

仰望い天空的藍 · 发表于 2019-12-13 16:15

413191246se 发表于 2012-2-13 12:50
楼主想法好大胆！一次性选中所有表格，这个提法我从来没有见过。但我可以给你提供一个“处理所有表格” ...

您好，你的这个想法怎么实现呢

yhs185 · 发表于 2019-12-15 19:10

有一次性选中文档中全部表格的代码

19820713chen · 发表于 2019-12-15 22:48

Sub 选中所有表格()
Dim t As Table
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
For Each t In ActiveDocument.Tables
t.Range.Editors.Add wdEditorEveryone
Next
ActiveDocument.SelectAllEditableRanges wdEditorEveryone
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
End Sub

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

WORD中有若干个表格，为了修改样式，能否一次性选中文档中全部表格呢？

评分