Locating font type ex. "Times New Roman"

[Psyclops]

Anybody,

I want to test a word document if its font is "Times New Roman"
if not I want to highlight those word/sentences that is not in Times new Roman...

Is this possible using Macro?

Thanks in advance...

[mdmackillop]

Hi Psyclops
Welcome to VBAX.


Option Explicit
Sub HighlightNonFont()
Dim w As Object
For Each w In ActiveDocument.Words
If w.Font.Name <> "Times New Roman" Then
w.HighlightColorIndex = wdRed
End If
Next
End Sub

[fumei]

Hi Malcom. If I may gently suggest...for newbies it would be better to put put full code (and...ahem...Option Explicit) in your posts. Just plunking that code into a procedure will not do much....I know....I just tried.

[mdmackillop]

Amended as requested.
Thanks Gerry.

[fumei]

Wheeew...I was worried you may take that as intrusive.

[Psyclops]

Thanks to all of you mdmackillkop and fumei for the quick response...
I really appreciate your help and I'll try it now...

[Psyclops]

Hi ,

Just a follow-up

Do you think in this code whitespaces are also included to be highlight if its font is not in times new roman...

Thanks again...



Option Explicit

Sub HighlightNonFont()

Dim w As Object

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

End Sub

[mdmackillop]

Hi Psyclops
Try "Sentences" instead of "Words" (untested)

[Psyclops]

Hi MD,

I have tried using "Sentences" instead of "Words" and the results is almost the same...

I think the problem is the whitespaces inside the table...Is there any possible solutions to this...

[mdmackillop]

Why are you trying to do this?

[Psyclops]

Hi MD,

I want to automatically verify if a set of documents is correct based on specified format before uploading it as HTML because sometimes when it is
uploaded as HTML file some of properties have been change if you pre-format.

I'm trying to check those font used in the entire document and if not i should highlight those fonts but when a font is inside the table, a whitespace, and not in Times New Roman it cannot highlight this portion....

[mdmackillop]

Can you not simply select the table and apply TNR to the whole of the text.
If you're using mixed fonts, you should consider using styles, but that's another story!

[fumei]

Hehehehehe.

Hmmmmmmmmmmmmm..........Styles? Whataconcept.

[mdmackillop]

Happy to hand over to the Expert now! :rotlaugh: