Hello,
I am new to this forum.


I'm trying to write a macro that changes the font of the next word written in capital letters (set them in Arial Black).

I know how to skip to the next word 
Selection.MoveRight Unit:=wdWord, Count:=1
And, after searching the internet for a while, I've understood that I could use this method :
If UCase(MyText) = MyText Then ..
I've also read that, to have this work, it should come after this code : 
OptionCompareBinary
....but I know too little about VBA to write the whole macro.

Could anyone help me do this, please ?

Many thanks.