一键清除多个文档水印,高效办公必备技巧
在日常办公中,我们经常需要处理大量带有水印的Word文档(如“草稿”、“机密”等)。手动逐个删除不仅耗时,还容易遗漏。掌握批量删除水印的方法,可以极大提升工作效率。
这是最高效的方法,适用于.docx或.doc格式的多个文件。
Alt + F11 打开VBA编辑器。Sub BatchRemoveWatermark()
Dim doc As Document
Dim fd As FileDialog
Dim filePath As String
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.Title = "选择多个Word文档"
.Filters.Add "Word Files", "*.doc; *.docx", 1
.AllowMultiSelect = True
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
filePath = CStr(vrtSelectedItem)
Set doc = Documents.Open(filePath)
On Error Resume Next
doc.Sections(1).Headers(wdHeaderFooterPrimary).Shapes(1).Delete
doc.Save
doc.Close
Next vrtSelectedItem
MsgBox "水印已批量删除!"
End If
End With
End Sub
运行宏后选择多个Word文件,即可自动删除水印并保存。
如果水印是通过“插入文字水印”功能添加的,可以尝试以下步骤:
ActiveDocument.Watermark.Remove 命令。对于非技术用户,可以使用专门的Word批量处理工具: