View Single Post
 
Old 06-18-2017, 06:53 PM
Artmax Artmax is offline Windows 10 Office 2016
Novice
 
Join Date: Jun 2017
Posts: 7
Artmax is on a distinguished road
Default Batch replace Header and Footer and QuickStyle

Like many before me i have a need to process a couple of hundred documents to create a uniform header and footer across the documents.
I have tried and failed to find a ready made macro which works for my purposes and have tried editing them but always end up with errors - I don't know head from tail in vba - but a vast majority of the ones came from this forum so I thought I'd try here.

Tried but it results in an error: 'Only comments may appear after End Sub, End Function or End Prop'
Tried too Compile error

I don't know where it might go wrong, could well be a dodgy operator (i.e. me)

Some difficulties/requirements:
1. Not all headers or footers are uniform across the files I need to replace.So haven't been able to get Find/Replace to work.
2. Header contains an image.
3. Need a QuickStyle applied to docs as well.

I have created Autotexts for headers and footers - @header and @footer and have setup a QuickStyle but cannot get them all to work together.

I would love to be able to point at a folder and for it to just run through and save them all(and subfolders if possible - but happy to go folder by folder - it will still save me hundreds of hours)
I'm using Office 2016 on Windows 10 if it makes a difference

Thank you for your generous help
Reply With Quote