Delete Watermark with Macro Issue

Question

Good day,
I have macros currently to insert a DRAFT or COPY watermarks (just text, not using an image) into document(s). I have found when removing the watermarks it is removing the image int he header
Code:
Sub RemoveWaterMark()
' Remove.Watermark.Macro
    Dim strWMName As String
    On Error GoTo ErrHandler
    ActiveDocument.Sections(1).Range.Select
    strWMName = ActiveDocument.Sections(1).Index
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Selection.HeaderFooter.Shapes(strWMName).Select
    Selection.Delete
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    Exit Sub
Is there a way to code this macro to only remove the DRAFT or COPY that anyone can think of?

Answer 1

A watermark is an image in the header, even a text Watermark is an image - WordArt. Your code is supposed all shapes in the header. Is your image inside a shape like a Textbox?
When I try your code it does not run.
If you are using a Ribbon version of Word and used Page Layout > Watermark to insert your watermark Word gives each new watermark a unique shape name. I'm not sure how. When it later inserts a different watermark, it deletes the previous one, by name.
I do not have an answer for you but will post some interim steps as I try to figure one out. This way you can see the process rather than just the end result.
Step 1: Use the macro recorder to get an idea of what Word is doing when it deletes a Watermark or changes one.
Here are examples of recorded code:
Sub DeleteWaterMark()
' DeleteWaterMark Macro
    ActiveDocument.Sections(1).Range.Select
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Selection.HeaderFooter.Shapes("PowerPlusWaterMarkObject265849384").Select
    Selection.Delete
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub
Sub InsertWaterMark2()
' InsertWaterMark2 Macro
    ActiveDocument.Sections(1).Range.Select
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Selection.HeaderFooter.Shapes("PowerPlusWaterMarkObject266006337").Select
    Selection.ShapeRange.TextEffect.Text = "-"
    Selection.ShapeRange.TextEffect.FontSize = 1
    Selection.ShapeRange.TextEffect.FontName = "Cambria"
    Selection.ShapeRange.Line.Visible = False
    Selection.ShapeRange.Fill.Visible = True
    Selection.ShapeRange.Fill.Solid
    Selection.ShapeRange.Fill.ForeColor.RGB = RGB(192, 192, 192)
    Selection.ShapeRange.Fill.Transparency = 0.5
    Selection.ShapeRange.Rotation = 315
    Selection.ShapeRange.LockAspectRatio = True
    Selection.ShapeRange.Height = InchesToPoints(6.11)
    Selection.ShapeRange.Width = InchesToPoints(3.05)
    Selection.ShapeRange.WrapFormat.AllowOverlap = True
    Selection.ShapeRange.WrapFormat.Side = wdWrapNone
    Selection.ShapeRange.WrapFormat.Type = 3
    Selection.ShapeRange.RelativeHorizontalPosition = _
        wdRelativeVerticalPositionMargin
    Selection.ShapeRange.RelativeVerticalPosition = _
        wdRelativeVerticalPositionMargin
    Selection.ShapeRange.Left = wdShapeCenter
    Selection.ShapeRange.Top = wdShapeCenter
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub
Sub WatermarkBlank()
' WatermarkBlank Macro
    ActiveDocument.Sections(1).Range.Select
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Selection.HeaderFooter.Shapes("PowerPlusWaterMarkObject265849384").Select
    Selection.Delete
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    Application.Templates( _
        "C:\Users\Charles K. Kenyon\AppData\Roaming\Microsoft\Document Building Blocks\1033\14\Building Blocks.dotx" _
        ).BuildingBlockEntries("Blank").Insert Where:=Selection.Range, RichText:= _
        True
End Sub
Sub RemoveWaterMark2()
' RemoveWaterMark2 Macro
    ActiveDocument.Sections(1).Range.Select
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Selection.HeaderFooter.Shapes("PowerPlusWaterMarkObject266857275").Select
    Selection.Delete
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub
Additional thoughts/ideas.
One other thing that I did was create a Watermark building block that had white text 100% transparent. The WatermarkBlank macro above is a recording of the insertion of that, which deleted the existing Watermark. Again, though, it uses a specific name. I
can tell you that the name is NOT stored as a document variable.
If you were to cycle through the names of the images looking for "PowerPlusWaterMarkObject" at the beginning of the name that would work for watermarks inserted by Word 2010.
Can you get your code to change the transparency to 100% leaving the watermark there?
Sorry, I don't have time to do more right now. Hope this helps some.
Charles Kenyon Madison, WI