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

gmayor · #3 10-23-2019, 02:58 AM

Using content controls as hinted by Andrew is certainly a sensible approach. e.g. you could put a content control in the header of the template and title it (say) 'HeaderText' then use the following to populate it

Code:

Private Sub cmdSetClassification_Click()
' prepare header footers..
Dim oCC As ContentControl
Dim sHeadFooter As String
    Set oCC = ActiveDocument.SelectContentControlsByTitle("HeaderText").Item(1)
    sHeadFooter = txtFurtherInfo.Text
    oCC.Range = sHeadFooter
    Unload Me
End Sub

or you could write to the start or the end of the header range e.g.

Code:

Private Sub cmdSetClassification_Click()
' prepare header footers..
Dim oHeader As Range
Dim sHeadFooter As String
    Set oHeader = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range
    oHeader.Collapse 1    'the start of the range or
    'oHeader.Collapse 0 'the end of the range
    sHeadFooter = txtFurtherInfo.Text
    oHeader.Text = sHeadFooter
    Unload Me
End Sub

which answers the original question regarding the overwriting of range content, but that is nowhere near as convenient should you wish to recall the userform to edit the document

You could also use bookmarks to locate the text and you will find the FillBM macro on my web site to write to the bookmarks and remark the text so that it may be recalled to the userform. I prefer content controls as they are less likely to be accidentally deleted, but that is less of an issue with headers and footers.

You may find Insert Content Control Add-In useful

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