Remove any Watermark

[Fonsi]

Hello,

I need a macro to remove the watermark from a Word file (2010).

I have been looking into this but I am not able to create this macro for any watermark, no matter the watermark used in the document.

In other words, what I am looking for is a generic macro that removes the watermarks, without writing in the code the name of the watermark (usually DRAFT, COPY or WHATEVER).

Is this posible?

Many thanks in advance

[gmayor]

The following should do that (for text watermarks like those mentioned).


Sub RemoveWaterMarks()
'Graham Mayor - http://www.gmayor.com - Last updated - 08 May 2018
Dim oSection As Section
Dim oHeader As HeaderFooter
Dim oRng As Range
Dim oShape As Shape
For Each oSection In ActiveDocument.Sections
For Each oHeader In oSection.Headers
If oHeader.Exists Then
Set oRng = oHeader.Range
oRng.End = oRng.Paragraphs(1).Range.End - 1
For Each oShape In oRng.ShapeRange
If oShape.Type = 15 Then oShape.Delete
Next oShape
End If
Next oHeader
Next oSection
lbl_Exit:
Set oSection = Nothing
Set oHeader = Nothing
Set oRng = Nothing
Set oShape = Nothing
Exit Sub
End Sub

[Fonsi]

Thank you so much! It works on any document!