Как изменить размер шрифта текста комментария в документе Word?

Как показано на снимке экрана ниже, если вы хотите увеличить размер шрифта текста комментария в документе Word, что можно сделать? В этой статье описаны два способа решения этой задачи.

Изменение Размер шрифта комментария с помощью встроенной функции Word

Изменение Размер шрифта комментария с помощью кода VBA

---

Изменение Размер шрифта облачка комментария с помощью встроенной функции Word

Вы можете напрямую изменить размер шрифта текста облачка на панели «Все стили» в Word. Для этого выполните следующие действия.

1. Нажмите клавиши Ctrl+Alt+Shift+S, чтобы открыть панель Стили.

2. На панели Стили нажмите кнопку Параметры. См. снимок экрана:

3. В открывшемся окне Параметры области стилей выберите пункт Все стили в раскрывающемся списке Отображать стили.

4. Затем нажмите кнопку ОК, чтобы вернуться на панель Стили. Прокрутите список вниз, найдите строку Текст облачка, щёлкните кнопку , чтобы развернуть выпадающий список, и выберите команду Изменить. См. снимок экрана:

5. В окне Изменение стиля в разделе Форматирование выберите нужный вам размер шрифта, как показано на снимке экрана ниже, и нажмите кнопку ОК.

6. Закройте панель Стили.

Теперь размер шрифта во всех облачках комментариев изменён на указанный.

Примечание: этот параметр будет применяться ко всем будущим комментариям.

---

Изменение Размер шрифта облачка комментария с помощью кода VBA

В этом разделе представлен код VBA, который поможет вам легко изменить размер шрифта в облачках комментариев документа Word.

1. В документе, где нужно изменить размер шрифта облачка комментария, нажмите клавиши Alt+F11, чтобы открыть окно Microsoft Visual Basic для приложений.

2. В открывшемся окне последовательно выберите пункты Вставка > Модуль. Затем скопируйте приведённый ниже код VBA в окно модуля.

Код VBA: изменение Размер шрифта облачка комментария в Word

Sub SetCommentTextStyle()
'Updated by ExtendOffice 20181112
    Dim objComment As Comment
    Dim objDoc As Document
    Dim strFontName As String
    Dim strFontSize As String 
    Set objDoc = ActiveDocument
    strFontName = InputBox("Enter text font name here: ", "Font name")
    strFontSize = InputBox("Enter font size here: ", "Font size") 
    With objDoc
      For Each objComment In .Comments
        objComment.Range.Font.Name = strFontName
        objComment.Range.Style = ActiveDocument.Styles("Balloon Text Char")
      Next objComment
    End With
    ActiveDocument.Styles("Balloon Text").Font.Size = Val(strFontSize)
End Sub

3. Нажмите клавишу F5, чтобы выполнить код.

4. В первом диалоговом окне Kutools для Word введите новый шрифт для комментария и нажмите кнопку ОК.

5. Во втором диалоговом окне Kutools для Word укажите нужный размер шрифта и нажмите кнопку ОК.

Теперь размер шрифта во всех облачках комментариев изменён на указанный в текущем документе.