Watermarks replace Headers in my Word 20003 Document

  • Thread starter Linda in Waterloo Ontario
  • Start date
L

Linda in Waterloo Ontario

When I try adding a "draft" watermark to a Word document, the watermark
appears where it should but it removes the headers. This happens on some
pages only which means I have to look through the entire document to ensure
the headers are still there. I can't do without the headers (logos, etc.) …
they have to remain there, as well as the footers. I have Word 2003. Do I
have to go to each new section and add the headers back in? Looking for an
easier solution, because the report I'm working with is over 200 pages with a
huge number of section breaks. I'd appreciate any help available – thanks!
 
G

Graham Mayor

Another user had a similar problem recently and I replied (almost) as
follows:

The problems arise as there are three possible headers for each section, and
each header would need to be addressed separately with due regard for
whatever may already be in the header to which you wish to add a watermark.

If I was doing this for myself, I would save the watermark as an autotext
entry (building block in Word 2007) in the normal template (or the document
template) . Then insert the autotext (building block) entry at the end of
each of the header ranges, for each section, as follows.

Insert the watermark in a blank document. Open the header, select the
watermark and save it as an autotext entry. If you save the autotext entry
in the document template then instead of references to NormalTemplate use
ActiveDocument.AttachedTemplate


Sub Draft_Word2003()
Dim i As Long
Dim oRange As Range
For i = 1 To ActiveDocument.Sections.Count
Set oRange =
ActiveDocument.Sections(i).Headers(wdHeaderFooterFirstPage).Range
oRange.Collapse wdCollapseEnd
NormalTemplate.AutoTextEntries("DRAFT") _
.Insert Where:=oRange, _
RichText:=True
Set oRange =
ActiveDocument.Sections(i).Headers(wdHeaderFooterPrimary).Range
oRange.Collapse wdCollapseEnd
NormalTemplate.AutoTextEntries("DRAFT") _
.Insert Where:=oRange, _
RichText:=True
Set oRange =
ActiveDocument.Sections(i).Headers(wdHeaderFooterEvenPages).Range
oRange.Collapse wdCollapseEnd
NormalTemplate.AutoTextEntries("DRAFT") _
.Insert Where:=oRange, _
RichText:=True
Next i
End Sub


--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>



Laurie wrote:
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top