一键清除多个文档水印,高效办公必备技巧
在日常办公中,我们经常需要处理大量带有水印的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批量处理工具: