Sub Example_GetFont()
    ' Этот пример находит информацию шрифта для активного стиля текста.
    
    Dim typeFace As String
    Dim Bold As Boolean
    Dim Italic As Boolean
    Dim charSet As Long
    Dim PitchandFamily As Long
    
    ThisDrawing.ActiveTextStyle.GetFont typeFace, Bold, Italic, charSet, PitchandFamily
    
    MsgBox "Текущий стиль текста имеет следующие свойства шрифта:" & vbCrLf _
            & "Шрифт: " & typeFace & vbCrLf _
            & "Полужирный: " & Bold & vbCrLf _
            & "Курсив: " & Italic & vbCrLf _
            & "Набор символов: " & charSet & vbCrLf _
            & "Шаг и Семейство: " & PitchandFamily
    
End Sub