去除pdf/word的水印艺术字

对于pdf中的水印如果无法去除水印，则先另存为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批量删除艺术字_起不好名字就不起了的博客-CSDN博客

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