PDA

View Full Version : Solved: Font Find/Change


Philcjr
10-26-2006, 10:17 AM
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
10-26-2006, 01:37 PM
In fact....yes there is.

What have you tried?
fumei
10-26-2006, 01:56 PM
Also, have you tried looking through this site? This exact question was asked not that long ago.
Philcjr
10-27-2006, 06:16 AM
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...


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


Phil