水印云-轻松美化图片视频

图片视频一键去水印,手机电脑均可使用

word怎么批量删除艺术字水印

发布日期:2022-08-02 10:52 发表者:水印云 浏览次数:6462次

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啦,操作的时候边观察边运行,很快就能删除干净了。


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