Поделиться через

Свойство TextRange.MajorityFont (Publisher)

  • Статья

Возвращает объект Font , представляющий имя шрифта, наиболее используемое в текстовом диапазоне.

Синтаксис

expression. MajorityFont

Выражение Переменная, представляющая объект TextRange .

Возвращаемое значение

Font

Пример

В этом примере создается новое текстовое поле, заполняется его текстом, проверяется, является ли наиболее используемым шрифтом Tahoma, а если это не так, измените шрифт на 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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.