Propriété TextRange.MajorityFont (Publisher)

Cette propriété renvoie un objet Font qui représente le nom de la police la plus utilisée dans une plage de texte.

Syntaxe

expression. MajorityFont

Expression Variable qui représente un objet TextRange .

Valeur renvoyée

Police

Exemple

Cet exemple crée une nouvelle zone de texte, la remplit de texte, vérifie si la police la plus utilisée est Tahoma et si ce n’est pas le cas, remplace la police par Tahoma.

Sub SetFontName() 
 Dim intCount As Integer 
 With ActiveDocument.Pages(1).Shapes _ 
 .AddTextbox(Orientation:=pbTextOrientationHorizontal, _ 
 Left:=100, Top:=100, Width:=100, Height:=100) _ 
 .TextFrame.TextRange 
 For intCount = 1 To 10 
 .InsertAfter NewText:="This is a test. " 
 Next intCount 
 If .MajorityFont <> "Tahoma" Then _ 
 .Font.Name = "Tahoma" 
 End With 
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.