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

需要将文档另存为为带有宏的格式文档，word教程网，wordpress教程，然后执行

本地下载

上一篇：word文档新手教程：电脑安装Mathtype导致office 2013弹窗报错的解决方法 下一篇：word教程视频全集自学：Office2021新增了哪些功能

郑重声明：本文版权归原作者所有，转载文章仅为传播更多信息之目的，如作者信息标记有误，请第一时间联系我们修改或删除，多谢。