Creating watermark macro for 400 staff

[ryan1878]

Hi

I am currently setting up a tab in word 2013 that houses numerous macros to enable all staff to quickly enter what they need into legal documents.

I am however, having huge difficulty with inserting watermarks. As soon as I close the template down the macro breaks. This is an example of what I have so far. The watermark is an image, saved in a folder all staff have access to. The following macro should place PREP as a watermark.

Sub PREP()
'
' PREP Macro
'
'
ActiveDocument.Sections(1).Range.Select
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.HeaderFooter.Shapes("WordPictureWatermar k").Select
Selection.Delete
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
ActiveDocument.Sections(1).Range.Select
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.HeaderFooter.Shapes.AddPicture(FileName: = _
"E:\IT\MS Office 2013\PREP Watermark.png", LinkToFile:=False, _
SaveWithDocument:=True).Select
Selection.ShapeRange.Name = "WordPictureWatermark"
Selection.ShapeRange.PictureFormat.Brightness = 0.5


Selection.ShapeRange.PictureFormat.Contrast = 0.5
Selection.ShapeRange.LockAspectRatio = True
Selection.ShapeRange.Height = CentimetersToPoints(14.34)
Selection.ShapeRange.Width = CentimetersToPoints(15.92)
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
Any help on what I am doing wrong would be greatly appreciated. I have 5 of these to create

Thanks
Ryan

[DougMVP]

Try

Dim WM As Shape
With Selection.Sections(1).Headers(wdHeaderFooterPrimary)
    If .Shapes.count > 0 Then
        .Shapes(1).Delete
    End If
    Set WM = .Shapes.AddPicture(filename:="E:\IT\MS Office 2013\PREP Watermark.png")
    With WM
        With .PictureFormat
            .Brightness = 0.5
            .Contrast = 0.5
        End With
        .LockAspectRatio = True
        .Height = CentimetersToPoints(14.34)
        .Width = CentimetersToPoints(15.92)
        .WrapFormat.Type = 5
        .RelativeHorizontalPosition = wdRelativeVerticalPositionMargin
        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
        .Left = wdShapeCenter
        .Top = wdShapeCenter
    End With
End With