Office2019如何批量删除艺术字

摘要： 如果你确认了是艺术字且不是嵌入型的，可以按Alt F11，打开VBA编辑窗口，放入下面这段代码：
 
Sub 删除艺术字() Dim sh As Shape For Each sh In ActiveDocument.Shapes If sh.Type ...

如果你确认了是艺术字且不是嵌入型的，可以按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

Office2021新增了哪些功能

该软件将有两个不同的版本：面向大型企业和政府用户的Office2021LTSC，以及面向消费者和小型企业用户的Office2021。新增功能1：自信地进行创建使用新式视觉对象制作引人入胜的文档和演示

如果没用试试下面这个

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

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

Office2019如何批量删除艺术字的下载地址：

本地下载

不习惯Office？还有这些好用的办公软件

PPT/WORD/EXCEL/OneNote/Publisher/Access等软件，数量多，占用资源也多，甚至有一些软件可能一两年都用不到。这样，不仅对系统资源造成浪费，也拖慢了系统。虽然OFFICE功能多多且强大，但是学习起