none
Word VBA Footnotes Font and Font size change RRS feed

  • Question

  • Hello, I have a problem where documentation is copied from other sources and the footnotes are of different font and size. I'm looking for help with a simple VBA solution to perform a global footnote reset of the font and font size to Times New Roman 10.

    Thank you.  Tom

    Saturday, January 11, 2020 10:47 PM

All replies

  • Try this first:

    Sub ResetFootnotes()
        Dim fn As Footnote
        For Each fn In ActiveDocument.Footnotes
            fn.Range.Font.Reset
        Next fn
    End Sub

    If that doesn't work:

    Sub ResetFootnotes()
        Dim fn As Footnote
        For Each fn In ActiveDocument.Footnotes
            With fn.Range.Font
                .Name = "Times New Roman"
                .Size = 10
            End With
        Next fn
    End Sub


    Regards, Hans Vogelaar (http://www.eileenslounge.com)

    Sunday, January 12, 2020 8:48 AM