通过

Font.AllCaps 属性 (Publisher)

  • 项目

如果字体的格式设置为所有大写字母，则返回或设置 msoTrue ;否则返回其他 MsoTriState 常量之一。 读/写。

语法

表达式。AllCaps

表达 一个代表 Font 对象的变量。

返回值

MsoTriState

备注

将 AllCaps 属性设置为 msoTrue 会将 SmallCaps 属性设置为 msoFalse，反之亦然。

AllCaps 属性值可以是 Microsoft Office 类型库中声明的 MsoTriState 常量之一。

示例

本示例检查当前文档中选定文字的格式是否设置为全部大写字母。 若要使此示例有效，必须有一个活动出版物，其中选择了文本。

Public Sub Caps() 
 
 If Publisher.ActiveDocument.Selection _ 
 .TextRange.Font.AllCaps = msoTrue Then 
 MsgBox "Text is all caps." 
 Else 
 MsgBox "Text is not all caps." 
 End If 
 
End Sub

本示例将选定文字的格式设置为全部大写字母。 为了使本代码正常执行，当前文档必须存在，并且选定了某些文字。

Public Sub MakeCaps() 
 
 If Publisher.ActiveDocument.Selection.TextRange _ 
 .Font.AllCaps = msoFalse Then 
 Selection.TextRange.Font.AllCaps = msoTrue 
 Else 
 MsgBox "You need to select some text or it is already all caps." 
 End If 
 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。