[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" wrote in message
...
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.

[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

"Doug Robbins - Word MVP" wrote:

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" wrote in message
...
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.

[Stefan Blom[_3_]]

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

--
Stefan Blom
Microsoft Word MVP



"Ehsan Sadeghi" wrote in message
...
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

"Doug Robbins - Word MVP" wrote:

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" wrote in message
...
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.