Multi-File Header Change

macropod · #6 02-14-2018, 01:03 PM

In that case, if you run the macro from a document containing the required header, you could simply delete:

Code:

StrTxt = InputBox("Text to add to headers? e.g. ""March 1, 2018""")
If Trim(StrTxt) = "" Then Exit Sub

and change:
.Sections(1).Headers(wdHeaderFooterPrimary).Range. InsertAfter StrTxt
to:

Code:

            With .Sections(1).Headers(wdHeaderFooterPrimary).Range
              .FormattedText = wdDocSrc.Sections(1).Headers(wdHeaderFooterPrimary).Range.FormattedText
              .Characters.Last.Delete
            End With

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Word 2016 Multi-file Macro issues	IneedHelpWithWord	Word VBA	1	08-08-2017 09:29 PM
Multi change text	DrDress	Word	4	04-17-2017 06:39 PM
Copy and Paste from File to File but File Names always change	aaronbauer1980	Excel Programming	1	04-15-2016 05:53 PM
Split multi-page mail merge document, then name file from letter info.	BriMan83	Mail Merge	1	04-24-2013 11:35 PM
Word insert only 1st page of multi-paged PDF file	Evgeniy	Word	1	02-04-2012 01:36 PM