VBA - change font and font size for Word footnote

[thomasoj]

Hello,
Thank you in advance for your assistance. I produce outgoing letters that obtain information from multiple resources. The resources are created by different individuals and they use different styles and formatting.


I was able to solve changing the body of the letter to a consistent font and font size. My problem is with the footnotes. I thought I would just have to change the range in my other macro to footnotes and I'd be set. Unfortunately, I was incorrect.
Here is what I have written. (I'm very new to VBA and programming)


Sub Zchangefootnote()
'
' Zchangefootnote Macro
'
Dim intResult As Integer
Dim strMessage As String
Dim myRange As Range
Set myRange = ActiveDocument.footnotes
myRange.WholeStory
myRange.Font.Name = "Times New Roman"
myRange.Font.Size = 10
Exit Sub
End Sub


The error occurs at Set myRange = Activedocument.footnotes.




Thank you for any assistance.


Tom