Changing the font of all headers

[Ehsan Sadeghi]

I have a page that has over 700 headers, I want to change the font from
"Courier New" to "Arial" and the size from 9 to 12. Is it possible to this
automatically? I am using word 2000.

 

[Doug Robbins - Word MVP]

Dim i As Long, j As Long
With ActiveDocument
For i = 1 To .Sections.Count
With .Sections(i)
For j = 1 To .Headers.Count
With .Headers(j).Range
.Font = "Arial"
.Font.Size = 12
End With
Next j
End With
Next i
End With


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com

 

[Ehsan Sadeghi]

hello,
well what can I say, I did the same thing with the replace function just
clicked on more and choose the correct options. But thanks anyway.

ehsan

 

[Stefan Blom]

An even quicker method would be to modify the Header paragraph style.