word 如何批量删除艺术字

背景

遇到一个文档是用艺术字打的水印，本来想看怎么能够批量选中艺术字对象，再统一删除，无奈并没找到对应的方法，最后成功通过宏语言，使用VBA代码实现删除艺术字的目的。

方法

首先选择并创建宏对象：

word中怎么设置标题大纲级别

word中怎么设置标题大纲级别1目标新建一个word，能够提前设定好word的标题、正文格式，等到自己编辑文本的时候能够直接选中预先设置好的格式，直接修改。2解决办法新建word文档。在样式

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

完整代码如下，需要注意的是：此代码适用于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中设置大纲，再也不用freestyle了

虽然嘻哈歌手需要的是freestyle能力，但是freestyle并不是通用的，例如我们在写Word时，就不能太过放飞自我。没有大纲的Word比没有freestyle的嘻哈歌手更糟，不仅在写Word时进度慢，而且容易在边