#1
|
|||
|
|||
Updating the header and footer of many documents
I am trying to update the header and footer size on a large number of Word documents within sub-folders. The macro I am using is as below:
Code:
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader With Selection.PageSetup .HeaderDistance = CentimetersToPoints(2.6) .FooterDistance = CentimetersToPoints(2.6) End With I have placed the code into a function so it can be used as a custom process within the add-in. The process runs with no errors but when I open the amended documents the header/footer appears unchanged. I'm not sure why as it will work when manually ran. Hoping someone can assist. Code:
Function HeaderFooter(oDoc As Document) As Boolean On Error GoTo Err_Handler 'Do Something with oDoc here. e.g.," ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader With Selection.PageSetup .HeaderDistance = CentimetersToPoints(2.6) .FooterDistance = CentimetersToPoints(2.6) End With HeaderFooter = True lbl_Exit: Exit Function Err_Handler: Select Case Err.Number 'Case Is = "Your handled errors e.g., 5109" Case Else HeaderFooter = False Resume lbl_Exit End Select End Function Thanks |
#2
|
||||
|
||||
You missed the comment you reproduced in the code.
Code:
Function HeaderFooter(oDoc As Document) As Boolean On Error GoTo Err_Handler 'Do Something with oDoc here. e.g.," With oDoc With .PageSetup .HeaderDistance = CentimetersToPoints(2.6) .FooterDistance = CentimetersToPoints(2.6) End With HeaderFooter = True End With lbl_Exit: Exit Function Err_Handler: HeaderFooter = False End Function
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com |
#3
|
|||
|
|||
Thanks for that, think I accidentally removed part of the code when testing. Looks to be working although only on blank documents, I assume something is preventing the change on my regular templates.
|
#4
|
||||
|
||||
If you wish you can send the document to my web site and I will take a look,
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com |
Thread Tools | |
Display Modes | |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Adding text to the header and footer without removing all other content in the header and footer | digitalelise | Word VBA | 2 | 10-23-2019 02:58 AM |
Include header and footer formatting when using IF conditional includes of separate documents | anakaine | Mail Merge | 3 | 11-06-2015 09:51 PM |
Dynamic Header / Footer for ALL documents | Abri | Word | 3 | 08-13-2015 04:40 AM |
Header and footer aligned in the footer area | ashiqghfr | Word | 2 | 07-23-2015 01:14 AM |
header/footer problems only in certain documents | Endzone | Word | 5 | 08-15-2012 01:04 AM |