VBA code to align watermarks

Catty · #5 11-20-2013, 12:45 PM

Thanks a lot Greg...this works beautifully.

I have two other concerns though. I have created a DeleteWaterMark macro which was working 100% first run, but now
after inserting my "new" watermark, I have to run the DeleteWaterMark macro twice before the watermark is removed.

Also for testing purposes, when I try to insert 2 different watermarks on the same document, the second watermark
"hangs" on the top half of the header instead of just replacing the first one (hope I'm making sense).
How can I resolve this? Below is the DeleteWaterMark macro. Thanks so much for your help!

Code:

Sub DeleteWatermark() 
  Dim oSection As section 
  Dim oHeader As HeaderFooter 
  Dim oRng As Range 
  Dim oShape As Shape 
  On Error Goto Errhandler 
  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 
   
Errhandler: 
  MsgBox "Watermark successfully removed." 
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to align texts so they all end at the same line	patehi	Word	3	05-25-2013 11:47 PM
Resize and align	AndyDDUK	PowerPoint	9	11-09-2012 05:23 AM
Clipart and Watermarks	Maureen	Office	3	09-30-2011 02:53 AM
Watermarks on the web	David S	Word	0	07-28-2011 07:54 AM
Question on watermarks	kknutson	Word	0	04-26-2007 04:12 PM