word批量去水印代码

wmqz.130

1. Private Sub CommandButton1_Click()
   
2. Dim doc As Document, pth$
   
3. pth = ThisDocument.Path
   
4. Set fs = CreateObject("Scripting.FileSystemObject")
   
5. Set ff = fs.getfolder(pth)
   
6. 
   
7. For Each f In ff.Files
   
8.     If fs.GetExtensionname(f) = "doc" Or fs.GetExtensionname(f) = "docx" Then
   
9.      Set doc = Documents.Open(ph & f, Visible:=False)
   
10.      
    
11.      '*************************循环去掉页眉，页脚中的内容******************************************************************
    
12.             For Each oSec In doc.Sections    '文档的节中循环
    
13.                                Set myRange = oSec.Headers(wdHeaderFooterPrimary).Range
    
14.                                myRange.Delete    '删除页眉中的内容
    
15.                                myRange.ParagraphFormat.Borders(wdBorderBottom).LineStyle = wdLineStyleNone    '段落下边框线
    
16.                                Set myRange = oSec.Footers(wdHeaderFooterPrimary).Range
    
17.                                myRange.Delete    '删除页脚中的内容
    
18.             Next oSec
    
19.      '*******************************************************************************************************************
    
20.      WordBasic.RemoveWatermark  '删除水印
    
21.      doc.Close -1, 1            '关闭文件
    
22.     End If
    
23. Next
    
24. MsgBox "操作完毕并保存！"
    
25. End Sub
    

复制代码

去水印工具.rar (22.38 KB, 下载次数: 299)

2018-8-19 23:24 上传

点击文件名下载附件

zhanglei1371

测试结果：
运行时提示myrange无效。
加了句：dim myrange as range.
继续测试水印文档。未能去除。

wmqz.130

zhanglei1371 发表于 2018-8-20 09:20
测试结果：
运行时提示myrange无效。
加了句：dim myrange as range.

我下载了你的文件,发现你的文件是插入了个文本框,不是水印图片.

我的代码是去水印的,不是去正文内容的文本框的.

zhanglei1371

我就是用word的默认水印加入功能测试的，建议可以加入这个功能。

to9127

谢谢，的确好用哦。

三戒

不错的总结！