word怎么批量删除艺术字水印？word本身并没有直接能去除pdf文件艺术水印的功能，网上的去水印工具很多也是收费的，今天分享一个利用代码来批量删除艺术字水印的方法，支持多个word版本，这里以word2007为例子。

Word2007版的没有直接能另存为PDF文件的功能，需要下载一个插件才能实现，在网上搜了一下，大多是流氓软件，找了半个多小时都没找到合适的，去官网下载，也没找到可以下载的路径，搜关键词也没搜到。

网上也有很多可以直接转换pdf文件的工具，免费的会限制文件大小和数量，收费的又不经常转换，不划算开会员。于是还是在网上搜索解决方法，终于找到一个可以利用代码就能实现转换的方法，经实操效果非常好，就分享给大家

以WORD2007版为例，其它版本的你们可以试试

1、打开文件，点击菜单视图

2、点击最右边的宏选项

3、在宏名处命名：如批量删除艺术字，然后点击创建

4、将下方代码粘贴进去，如下图

Sub 批量删除艺术字() Dim a As Shape For Each a In ActiveDocument.Shapes If a.Type = msoTextEffect Then a.Delete 'msoTextEffect 是你想删除的类型 Next End Sub

代码作者是：欢乐马

来源：知乎

5、最后点击运行即可，文档中的艺术字水印就被删除了

需要注意的是：如果文档页数很多，水印也很多，那运行一次宏是删除不干净的，需要运行多次才行，也很简单，就反复点击那个小三角键就OK啦，操作的时候边观察边运行，很快就能删除干净了。

以上是我的实操分享，如果帮到你了，麻烦点个小心心吧