对于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版批量删除艺术字水印 - 知乎