word 如何批量删除艺术字

办公教程导读

收集整理了【word 如何批量删除艺术字】办公软件教程，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含431字，纯文字阅读大概需要1分钟。

办公教程内容图文

之后在代码框里粘贴删除艺术字的函数内容：

完整代码如下，需要注意的是：此代码适用于Word2016版，如果是2019版，要把判断艺术字的表达式改一下，即Type赋值语句改为：sh.Type=msoTextBox，至于其他版本的word可以分别试试这两个语句。

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

最后运行代码，如果包含艺术字的页数比较多的话，可能要多运行几次，才能完全删除所有内容：

办公教程总结

以上是为您收集整理的【word 如何批量删除艺术字】办公软件教程的全部内容，希望文章能够帮你了解办公软件教程word 如何批量删除艺术字。
如果觉得办公软件教程内容还不错，欢迎将网站推荐给好友。