[RESOLVED][Word 2010] Insert text in all footers in a document

[bflo1127]

I am trying to insert some standard text in all footers in a given document while retaining any existing footer text. My text should get inserted at the end of any existing text, on a new line. Here's my code so far:

Public Sub FooterTest()
Dim oSection As Section
Dim oHF As HeaderFooter
Dim ExistingFooterText As String
For Each oSection In ActiveDocument.Sections
For Each oHF In oSection.Footers
FooterEdit
Next
Next
End Sub
Private Sub FooterEdit()
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Selection.EndKey Unit:=wdStory
Selection.TypeParagraph
Selection.Text = "This is a footer"
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub

I can't figure out how to get it to loop through the document. This code simply writes "This is a footer" 8 times in the first footer. My sample document has 3 sections (2 pages each), with separate first page footers in each section and no footers are linked, so theoretically, I should only have 6 different footers in the document. I feel it has something to do with wdSeekCurrentPageFooter, but I can't figure out the logic to get it to work.