Sub Example_SetFont()
    'Этот пример находит информацию шрифта для активного стиля текста.
    'Затем изменяет шрифт на полужирный.
    
    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
            
    'Измените свойство bold
    Bold = Not Bold
    
    ThisDrawing.ActiveTextStyle.SetFont typeFace, Bold, Italic, charSet, PitchandFamily
    MsgBox "Текущий стиль текста имеет следующие свойства шрифта:" & vbCrLf _
            & "Шрифт: " & typeFace & vbCrLf _
            & "Полужирный: " & Bold & vbCrLf _
            & "Курсив: " & Italic & vbCrLf _
            & "Набор символов: " & charSet & vbCrLf _
            & "Шаг и Семья: " & PitchandFamily
            
    'Сбросьте шрифт
    Bold = Not Bold
    ThisDrawing.ActiveTextStyle.SetFont typeFace, Bold, Italic, charSet, PitchandFamily

End Sub