Font conversion macro

[Rob F]

Hi

In its wisdom, my company has decided to change its corporate font from Gill
Sans to Arial (I know, I know!).

I've written this macro to change the font in a Word document (inc headers
and footers) to Arial.

Sub ChangeFontToArial()
Dim aStory As Range
On Error Resume Next
For Each aStory In ActiveDocument.StoryRanges
aStory.Font.Name = "Arial"
Next aStory
End Sub

It works OK, except it doesn't correct the font of lettered bullet points.
Can someone help tweak my code so it does, please?

Thanks

Rob F

 

[Helmut Weber]

Hi Rob,

working with listparagraphs, listformat, listlevels etc.
seems to be endlessly complicated.

Depending on the way, the listparagraphs were
formatted, maybe this example can help:

Dim l As Long
With Selection.Range.ListFormat
For l = 1 To 9
.ListTemplate.ListLevels(l).Font.Name = "Arial Black"
Next
End With

--
Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"

 

[Rob F]

Thanks, Helmut. I'll try that on Monday.

Rob