Adding text to the header and footer without removing all other content in the header and footer

Guessed · #2 10-23-2019, 12:30 AM

Your template doesn't have any graphics in the header so not sure about that part of your request, however when you set the .Range.Text you are replacing whatever used to be there.

Because you are using a template, it should already have the placeholder text sitting in the header/footers and it should already be styled. This dramatically reduces the things you need to do with your code. You can also use Linked Content Controls to further minmise the code. For instance, if your Content Control was linked to the document's Keywords Property you could just do...

Code:

Private Sub cmdSetClassification_Click()
  ' prepare header footers..
  Dim sHeadFooter As String
  sHeadFooter = Me.txtFurtherInfo.Text
  ActiveDocument.BuiltInDocumentProperties("Keywords") = sHeadFooter
  Unload Me
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Removing header from one page but not footer	smithurmann	Word	1	12-15-2018 11:24 AM
Removing header and footer on two pages in my document	oliboi	Word	1	11-01-2016 05:27 PM
Header and footer aligned in the footer area	ashiqghfr	Word	2	07-23-2015 01:14 AM
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
Field codes appearing in header/footer/TOC instead of actual text	hgilberg	Word	2	03-16-2012 02:52 PM