AllCaps Property Example

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