Change all styles in document

[Sammy]

Hello,

I have Word 2003. I know how to change the font for one style in my document:

Activedocument.Styles("BodyText").ParagraphFormat.Alignment =
wdAlignParagraphJustify

but is there a way to change All the styles in the document (not just the
ones that are being used but all styles) to Times New Roman 12pt?

Thanks for any help you can give!

 

[Jean-Guy Marcil]

Hello,

I have Word 2003. I know how to change the font for one style in my document:

Activedocument.Styles("BodyText").ParagraphFormat.Alignment =
wdAlignParagraphJustify

but is there a way to change All the styles in the document (not just the
ones that are being used but all styles) to Times New Roman 12pt?

Try this:

Dim i As Long

With ActiveDocument.Styles
For i = 1 To .Count
If .Item(i).Type = wdStyleTypeParagraph Then
.Item(i).Font.Name = "Times New Roman"
End If
Next
End With

 

[Angie M.]

Works great, thank you!

Try this:

Dim i As Long

With ActiveDocument.Styles
For i = 1 To .Count
If .Item(i).Type = wdStyleTypeParagraph Then
.Item(i).Font.Name = "Times New Roman"
End If
Next
End With