Solved: Font Find/Change

[Philcjr]

Is there an easy way to find words with a certain font and change them all to another font???

I have 52+ pages to go through

Thanks,
Phil

[fumei]

In fact....yes there is.

What have you tried?

[fumei]

Also, have you tried looking through this site? This exact question was asked not that long ago.

[Philcjr]

Gerry,

Thanks for your help, I should have searched better for the answer. For those who might be looking for what I did, here it is...

[VBA]
Sub FontChange()

Dim Word As Object

For Each Word In ActiveDocument.Words
If Word.Font.Name <> "Times New Roman" Then
Word.Font.Name = "Times New Roman"
End If
Next

End Sub
[/VBA]

Phil