All you may need to do is change:
Set Rng = .Range.Paragraphs(1).Range
to, say:
Set Rng = .Headers(wdHeaderFooterPrimary).Range.Paragraphs(1).Range
All you may need to do is change:
Set Rng = .Range.Paragraphs(1).Range
to, say:
Set Rng = .Headers(wdHeaderFooterPrimary).Range.Paragraphs(1).Range
Cheers
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote
