Propriedade TextRange.MajorityFont (Publisher)

Retorna um objeto Font que representa o nome da fonte mais usada em um intervalo de texto.

Sintaxe

expressão. MajorityFont

Expressão Uma variável que representa um objeto TextRange .

Valor de retorno

Font

Exemplo

Este exemplo cria uma nova caixa de texto, a preenche com texto, verifica se a fonte mais usada é a Tahoma e, se não for, altera a fonte para 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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.