Batch replace Header and Footer and QuickStyle

Artmax · #5 06-19-2017, 05:59 PM

Wow, Thank you so much.
That Batch Processor is incredible.

I had a few issues with the autotext formatting being messed up but I've fixed it by defining the text as it's own style. Is there any other way to accomplish this? (just for my own knowledge)

Speaking of Styles, could you please show me how to change a Style Set in this process. I have a custom style saved as Template and would love for it to be applied as well.

Edit: So I've found that It's a simple line through Macro-recorder. If I wanted to build my own function could I make it something like:

Code:

Function changeStyle(oDoc As Document) As Boolean
On Error GoTo Err_Handler
'Do Something with oDoc here. e.g.,"
oDoc.ApplyQuickStyleSet2 ("Template")
MyUserDefinedProcess = True
lbl_Exit:
Exit Function
Err_Handler:
Select Case Err.Number
'Case Is = "Your handled errors e.g., 5109"
Case Else
MyUserDefinedProcess = False
Resume lbl_Exit
End Select
End Function

Thanks again.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Find & Replace in Header/Footer in 1000 files	amodiammmuneerk@glenmarkp	Word	12	03-05-2018 03:31 AM
New to VBA - Find/Replace in MS Word 2010 that Searches Header/Footer	mbreggs	Word VBA	4	06-01-2016 08:02 AM
Find/replace font colour in all header/footer	trillium	Word VBA	4	10-20-2015 10:39 PM
Created VBA to Find and Replace in Body, Header and Footer with Highlighting the replacement text	QA_Compliance_Advisor	Word VBA	11	09-23-2014 04:40 AM
Find & Replace in Header/Footer	PReinie	Word	6	01-22-2014 06:45 PM