Dim Shp As Shape, HdFt As HeaderFooter 
With ActiveDocument 
  On Error Goto Errhandler 
   'Add the watermark to each header in the first Section
  With .Sections.First 
    For Each HdFt In .Headers 
      Set Shp = HdFt.Shapes.AddTextEffect(msoTextEffect1, _ 
      "CONFIDENTIAL", "Arial Narrow", 38, False, False, 0, 0) 
      With Shp 
        .Name = "PowerPlusWaterMarkObject" & Format(Now, "YYMMDD") & Format(HdFt.Index, "00") 
        .TextEffect.NormalizedHeight = False 
        .Line.Visible = False 
        .Fill.Visible = True 
        .Fill.Solid 
        .Fill.ForeColor.RGB = RGB(192, 192, 192) 
        .Fill.Transparency = 0.5 
        .Rotation = 315 
        .LockAspectRatio = True 
        .Height = InchesToPoints(3.29) 
        .Width = InchesToPoints(6.85) 
        .WrapFormat.AllowOverlap = True 
        .WrapFormat.Side = wdWrapNone 
        .Left = InchesToPoints(-0.5) 
        .WrapFormat.Type = 3 
        .RelativeHorizontalPosition = wdRelativeVerticalPositionMargin 
        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin 
        .Top = InchesToPoints(3) 
      End With 
      .Range.FormattedText.ShowAll = False 
    Next 
  End With 
  With .ActiveWindow.View 
    .ShowMarkupAreaHighlight = False 
    .ShowComments = False 
    .ShowRevisionsAndComments = False 
  End With 
  .FormattingShowClear = True 
End With 
Set Shp = Nothing