Office2019如何批量删除艺术字
如果你确认了是艺术字且不是嵌入型的，可以按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
需要将文档另存为为带有宏的格式文档，然后执行
版权声明：
本站所有文章和图片均来自用户分享和网络收集，文章和图片版权归原作者及原出处所有，仅供学习与参考，请勿用于商业用途，如果损害了您的权利，请联系网站客服处理。
