Macro to Bold all capitalised text

[Rita King]

Using Word 2002.
Is it possible to find & replace all text in the current document that is
capitalised and make it bold - using a character style (called say strong)?
If so, could you please tell me how?

Many thanks

 

[Doug Robbins - Word MVP]

Hi Rita,

Use

Selection.HomeKey wdStory
Selection.Find.ClearFormatting
With Selection.Find
Do While .Execute(FindText:="[A-Z]{2,}", MatchWildcards:=True,
Wrap:=wdFindStop, Forward:=True) = True
Selection.Range.Style = "Strong"
Loop
End With

Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.

Hope this helps
Doug Robbins - Word MVP