MajorityFont Property

object that represents the font name most in use in a text range.

expression.MajorityFont

expression    Required. An expression that returns one of the objects in the Applies To list.

Example

This example creates a new text box, fills it with text, checks if the font most in use is Tahoma, and if it isn't, changes the font to 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