Vista - Adding Footers to Existing word documents

I have a list of word files which needs to have footers added. I believe I
have the basics defined. See below code:-

Set objNetwork = CreateObject("Wscript.Network")
strUser = objNetwork.UserName
strText = "Data Classification: Internal" & vbCRLF & vbCRLF &_
"Integrity: low" & vbCRLF

set objWord = CreateObject("Word.Application")
objWord.Visible = False
set objDoc = objWord.Documents.Open("L:\Updated Procedures\Asset Disposal
Procedures V2.doc")

set objRange = objDoc.Sections(1).Footers(1).Range

set objTemplate = objDoc.AttachedTemplate

objDoc.Sections(1).Footers(1).Range.Text = strText
objTemplate.AutoTextEntries("Filename and path").Insert objRange

objDoc.Sections(1).Footers(1).Range.ParagraphFormat.Alignment = 3
objWord.Quit

My problem is that Filename and path over writes strText and I need to save
my file without prompting me.

Can you assist me?