View Single Post
 
Old 01-14-2020, 03:10 PM
thomasoj thomasoj is offline Windows 10 Office 2016
Novice
 
Join Date: Jan 2020
Posts: 3
thomasoj is on a distinguished road
Default 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
Reply With Quote