VBA - Word how to globally change the font and font size in footnotes
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
|