How to change variables of a Word footer from Excel vba? - excel

Question

I have several variables to be updated in a Word footer from Excel.
I am only able to change variables out of the footer.
Sub Internal_Offer()
Dim datos(1 To 100) As String
Dim reemp(1 To 100) As String
wArch = Hoja1.Range("B2").Text & Hoja1.Range("B1").Text & ".docx"
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
objWord.Documents.Add Template:=wArch, NewTemplate:=False, DocumentType:=0
lenght = Hoja1.Range("B3").Value
For i = 1 To lenght - 1 'celda dónde está la cuenta
datos(i) = Hoja1.Range("A" & i + 3).Text 'dónde están los datos
reemp(i) = Hoja1.Range("B" & i + 3).Text 'dónde están las etiquetas
Next i
objWord.Activate 'Activa el documento de word
For i = 1 To lenght - 1 'celda dónde está la cuenta
With objWord.Selection.Find
.Text = datos(i) 'busca el texto de datos
.Replacement.Text = reemp(i) 'reemplaza por el texto
.Forward = True
.Wrap = 1
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute Replace:=2
End With
Next i
End Sub

Answer 1

There are at least two ways to address all footers of a Word document:
StoryRanges
Sections.Footers
Please try this (ActiveDocument is your objWord):
Private Sub CheckAllDocumentFooters()
Dim r As Word.Range
Dim s As Word.Section
Dim hf As Word.HeaderFooter
' either all story ranges:
For Each r In ActiveDocument.StoryRanges
Select Case r.StoryType
Case wdEvenPagesFooterStory, wdPrimaryFooterStory, wdFirstPageFooterStory
r.WholeStory
Debug.Print r.Text
End Select
' further sections:
While Not (r.NextStoryRange Is Nothing)
Set r = r.NextStoryRange
Select Case r.StoryType
Case wdEvenPagesFooterStory, wdPrimaryFooterStory, wdFirstPageFooterStory
r.WholeStory
Debug.Print r.Text
End Select
Wend
Next r
' or all sections:
For Each s In ActiveDocument.Sections
For Each hf In s.Footers
Debug.Print hf.Index
Debug.Print hf.Range.Text
Next hf
Next s
End Sub