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

Instead of adding manual formatting, change the style

__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com

This thread is a duplicate of: https://www.msofficeforums.com/word-...-footnote.html
Kindly don't start multiple threads on the same topic.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Thank you !!