当前位置:萝卜系统下载站 > 办公软件教程 > 详细页面

Office2019如何大局部删除艺术字

Office2019如何大局部删除艺术字

更新时间:2023-07-27 文章作者:未知 信息来源:网络 阅读次数:

Microsoft Office是由Microsoft(微软)公司开发的一套办公软件套装。常用组件有 Word、Excel、PowerPoint等。Microsoft Office是一套由微软公司开发的办公软件,它为 Microsoft Windows 和 Mac OS X而开发。

如果你确认了是艺术字且不是嵌入型的,可以按Alt+F11,打开VBA编辑窗口,放入下面这段代码:

?

Sub 删除艺术字()
Dim sh As Shape
For Each sh In ActiveDocument.Shapes
If sh.Type = msoTextEffect Then
sh.Delete
End If
Next
End Sub

?

如果没用试试下面这个

?

Sub 删除艺术字()
Dim sh As Shape
For Each sh In ActiveDocument.Shapes
If sh.Type = msoTextBox Then
sh.Delete
End If
Next
End Sub

需要将文档另存为为带有宏的格式文档,然后执行

?


Office办公软件是办公的第一选择,这个地球人都知道。Microsoft Office 2010的新界面简洁明快,标识也改为了全橙色。

温馨提示:喜欢本站的话,请收藏一下本站!

本类教程下载

系统下载排行

网站地图xml | 网站地图html