Thread: [Solved] Adding identical footers to 187 separate docs
View Single Post
 
Old 10-31-2011, 01:46 AM
macropod's Avatar
macropod macropod is offline Windows 7 64bit Office 2010 32bit
Administrator
  
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 22,467
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default
Hi sqzdog,

I'm travelling with only intermitent internet access, hence the delay in replying.

What you're asking is a rather trivial task (and should have been fairly obvious) - change:
With wdDoc.Sections(1).Footers(wdHeaderFooterPrimary).R ange
to:
With wdDoc.Sections(1).Headers(wdHeaderFooterPrimary).R ange

or, if you want to combine both routines into the same code, simply duplicate the:
With wdDoc.Sections(1).Footers(wdHeaderFooterPrimary).R ange
...
End With
block and make the above change to one of them.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote