400-099-0376

在线试用
微信扫码联系专属客服
安企神软件官网
首页
下载中心
客户列表
关于安企神

Office2019如何批量删除艺术字

2024-10-24

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

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

 

Office2019如何批量删除艺术字的下载地址:
  • 本地下载

    • TAG: