如何去掉文档中的水印？

陈王宇翔

一千多页的讲页，怎么能批量去掉文档中的水印？ moneyman.rar (73.66 KB, 下载次数: 24)

2019-4-20 20:23 上传

点击文件名下载附件

陈王宇翔

好像没有好办法，只能一页页删除吗？

413191246se

朋友，如果你确实有急用，可以联系本坛大神（老师）们，付费编程 VBA 代码，比如：
loquat 老师、duquancai 老师、zhanglei1371 老师、ming0018 老师等，他们编程水平高超，可以帮到你。
你在本论坛查找（或目视查找）各位老师的昵称，都有 QQ 联系的。

xyxcc177

Sub DeleteSp()

Dim sp As Shape
For Each sp In ActiveDocument.Shapes
   If sp.Type = 13 Then
      sp.Delete
   End If
Next
  
End Sub

陈王宇翔

xyxcc177 发表于 2019-4-24 07:55
Sub DeleteSp()

Dim sp As Shape

，大师，这个左下角这个可以去除吗？

xyxcc177

陈王宇翔 发表于 2019-4-24 13:18
，大师，这个左下角这个可以去除吗？

这个不是文本吗？替换就可以了

yhs185

Sub DeleteSp()

Dim sp As Shape
For Each sp In ActiveDocument.Shapes
Debug.Print sp.Type
    If sp.Type = 13 Or sp.Type = 6 Then
       sp.Delete
    End If
Next
   
End Sub

MAEL_AARON

我还以为是针对PDF文档的，还在琢磨这代码怎么用来着，脑子迟钝没反应过来，哈哈！