Замена шрифта во всём документе и колонтитулах

[Woodyart]

Необходимо заменить в документе Word весь шрифт на Times New Roman. Не понимаю как сделать это в колонтитулах. Подскажите, пожалуйста.

[viter.alex]

Код: Выделить всё

Sub ReplaceFontEverywhere()
  Dim oStRng As Range
  For Each oStRng In ActiveDocument.StoryRanges
    oStRng.Font.Name = "Times New Roman"
  Next
End Sub


[Woodyart]

Спасибо