Sub Zchangefootnote() With ActiveDocument.Styles("Footnote Text").Font .Size = 10 .Name = "Times New Roman" End With End Sub