This example checks the third paragraph in the active document for text formatted as all capital letters.
If ActiveDocument.Paragraphs(3).Range.Font.AllCaps = True Then
MsgBox "Text is all caps."
Else
MsgBox "Text is not all caps."
End if
This example formats the selected text as all capital letters.
If Selection.Type = wdSelectionNormal Then
Selection.Font.AllCaps = True
Else
MsgBox "You need to select some text."
End If