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
需要将文档另存为为带有宏的格式文档,然后执行
版权声明
本文仅代表作者观点,不代表本站立场。
本文系作者授权发表,未经许可,不得转载。
本文地址:https://chcsas.com/office/3816.html