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

马成功老师
马成功老师

2024年3月优秀创作者

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

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

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

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

当前文档含有很多表格:

目前针对表格的只有:

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


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

北京
浏览 3384
收藏
6
分享
6 +1
14
+1
全部评论 14
 
ypx
需要这个功能
· 广东省
回复
 
Less is more
这个功能很重要 但是一直都没改
· 四川省
1
回复
 
Lilin
强烈建议
· 河北省
回复
 
小龙哥
强烈建议
· 北京
1
回复
 
愿一切皆成佛
如何能选中所有表格,批量修改?那就好了。
· 江苏省
回复
马成功老师
马成功老师

2024年3月优秀创作者

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
回复
 
谢道雷
急切需要这个功能,麻烦问下宏代码怎么实现
· 山东省
1
回复
马成功老师
马成功老师

2024年3月优秀创作者

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
回复