If ActiveDocument.Paragraphs(3).Range.Font.AllCaps = True Then
MsgBox "第三段的所有文字都是大写的。"
Else
MsgBox "第三段存在不是大写的文字。"
End if
本示例将选定文本的字体格式设置为全部字母大写。
If Selection.Type = wpsSelectionNormal Then
Selection.Font.AllCaps = True
Else
MsgBox "请选择一些文字以执行操作。"
End If