Propriété Font.AllCaps (Publisher)

Renvoie ou définit msoTrue si la police est mise en forme comme toutes les lettres majuscules, ou renvoie l’une des autres constantes MsoTriState si ce n’est pas le cas. Lecture-écriture.

Syntaxe

expression. AllCaps

Expression Variable qui représente un objet Font .

Valeur renvoyée

MsoTriState

Remarques

La définition de la propriété AllCaps sur msoTrue affecte à la propriété SmallCapsla valeur msoFalse, et inversement.

La valeur de la propriété AllCaps peut être l’une des constantes MsoTriState déclarées dans la bibliothèque de type Microsoft Office.

Exemple

Cet exemple recherche du texte en majuscules dans le texte sélectionné du document actif. Pour que cet exemple fonctionne, il doit y avoir une composition active avec du texte sélectionné.

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

Cet exemple met en majuscules le texte sélectionné. Pour que ce code s'exécute correctement, un document doit être actif et comporter une sélection de texte.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.