去除pdf/word的水印艺术字

对于pdf中的水印如果无法去除水印，则先另存为word，然后再按下面办法处理即可：

查看宏，创建：删除艺术字

添加内容：

Sub 删除艺术字()Dim sh As ShapeFor Each sh In ActiveDocument.ShapesIf sh.Type = msoTextEffect Thensh.DeleteEnd IfNext
End Sub

如下图，保存。

最后运行多次就行。

相关参考：

word批量删除艺术字_起不好名字就不起了的博客-CSDN博客

Word2007版批量删除艺术字水印 - 知乎