建议wps【文字】增加批量选中所有表格的功能

马成功老师
马成功老师 WPS资深用户Lv.2 潜力创作者KVPWPS函数专家

Lv.2潜力创作者

文字、表格、图形图像是构成文档的三大基本要素。在实际工作中经常会碰这种情况:

文档里含有大量的表格,我想一次选中文档里所有的表格,然后进行批量操作,比如同时添加边框,同时更表格中的文字等。

虽然通过宏代码可以实现,但是针对小白来说不太现实。

建议在表格里选择中添加一项:【选中当前文档所有表格】项:

当前文档含有很多表格:

目前针对表格的只有:

建议在此下拉菜单中增加【选中所有表格】


因为在实际工作中,长篇文档排版表格很花费时间,尤其是含有大量的参差不齐的表格情况下。

北京
浏览 17529
4
9
分享
9 +1
33
4 +1
全部评论 33
 
梦里风荷
非常需要这个功能
   浙江省
举报
0
0
 
志行
我也反馈了,唉,官方很不重视
   浙江省
举报
1
0
 
剑侠~夏
我也反馈了,唉,官方很不重视
   四川省
举报
1
0
 
曰天月月鸟
非常需要这个功能
   北京
举报
1
0
 
ypx
需要这个功能
   广东省
举报
2
0
 
Less is more
这个功能很重要 但是一直都没改
   四川省
举报
1
0
 
Lilin
强烈建议
   河北省
举报
1
0
 
小龙哥
强烈建议
   北京
举报
1
0
 
愿一切皆成佛
如何能选中所有表格,批量修改?那就好了。
   江苏省
举报
1
9
马成功老师
马成功老师WPS资深用户Lv.2 潜力创作者KVPWPS函数专家

Lv.2潜力创作者

Sub 选中文档内所有的表格() 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
· 北京
举报
2
0
 
谢道雷
急切需要这个功能,麻烦问下宏代码怎么实现
   山东省
举报
1
14
马成功老师
马成功老师WPS资深用户Lv.2 潜力创作者KVPWPS函数专家

Lv.2潜力创作者

Sub 选中文档内所有的表格() 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
· 北京
举报
1
0