Replace footer in word with excel macro error

[hlg0035]

Hello all-

I'm trying to replace the footer information in Word with this (see below) and I receive this error: compile error: user-defined type not defined. Any help would be appreciated!

'Replace the footer info
Dim oSection As Word.Section
Dim oRange As Word.Range
Dim Var
For Each oSection In WrdDoc.Sections()
Set oRange = oSection.Footers(Var).Range
oRange.Find.Execute FindText:="[CDAREPDATE]"
Set oRange = Nothing
Next
Next

 

[Andrew Poulsom]

Have you set a Reference to Word?

 

[hlg0035]

Yes, this is what I have:

Set WrdApp = CreateObject("Word.Application")
WrdApp.Visible = True
Set WrdDoc = WrdApp.Documents.Open("C:\Users\" & UserID & "\Desktop\Quantien Evaluation Template 9.5.docx")

Have you set a Reference to Word?

 

[Andrew Poulsom]

No that doesn't set a Reference. You can't do this with late binding:

Dim oSection As Word.Section
Dim oRange As Word.Range

try declaring them as Object.

 

[hlg0035]

Thank you, this is what I have now:

I am getting an error with the bolded line item now: The requested member of the collection does not exist

Dim oSection As Object
Dim oRange As Object
Dim Var
For Each oSection In WrdDoc.Sections()
Set oRange = oSection.Footers(Var).Range
oRange.Find.Execute FindText:="[CDAREPDATE]"
Set oRange = Nothing
Next

No that doesn't set a Reference. You can't do this with late binding:

Dim oSection As Word.Section
Dim oRange As Word.Range

try declaring them as Object.

 

[Andrew Poulsom]

You haven't assigned anything to the variable Var.