Bookmarking Footers or Connecting them To Input Boxes

[Boots6]

Hello, I am using input boxes to quickly fill out an entire document with certain fields with this code (given to me by Andrzejek-many thanks):
Sub Subcontracter()
'
' Subcontracter Macro
'Dim strSubName As String
Dim i As Integer

strSubName = InputBox("Subcontractor")

With Selection
For i = 1 To 7
.GoTo What:=wdGoToBookmark, Name:="SubContr" & i
.TypeText Text:=strSubName
Next i

End With
End Sub

The problem is I cannot bookmark footers to include the data I need. Is there any way to do this or link it to words in the document so it fills itself in?

 

[Andrzejek]

Is your Footer very complicated?
If not, why don't you create it 'on-the-fly' in the code.

I started with bank, new document, created a Macro that sets a Footer and got:

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
If Selection.HeaderFooter.IsHeader = True Then
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Else
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
End If
Selection.TypeText Text:=[blue]"This is my text in Footer."[/blue]
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

You can easily use your [tt]strSubName[/tt] instead of typed text:

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
If Selection.HeaderFooter.IsHeader = True Then
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Else
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
End If
Selection.TypeText Text:=[blue]strSubName[/blue]
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

Have fun.

---- Andy

 

[Boots6]

The problem is, I had to seperate the document so I could have different headers and footers even though it is all one document. I was playing with trying to insert fields under the "quick parts" drop down on the Insert tab under Headers & Footers into the different footers where i could connect it to a formula or somehow to the different input boxes, but I haven't had much luck yet. Any familiarity with that?