Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

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

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

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

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


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

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

1. нажмите Ctrl + другой + сдвиг + S , чтобы открыть Стили панель.

2. в Стили панели, нажмите Опционы, Смотрите скриншот:

3. В открытии Параметры панели стиля окно, выберите Все стили из Выберите стили, чтобы показать выпадающий список.

4. Затем нажмите OK вернуться к Стили , прокрутите страницу вниз, чтобы найти Текст воздушного шара , нажмите , чтобы открыть раскрывающийся список, а затем нажмите кнопку Изменить, Смотрите скриншот:

5. в Изменить стиль окна, выберите размер шрифта, как вам нужно в форматирование , как показано ниже, и нажмите OK Кнопка.

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

Затем размер шрифта всех воздушных шаров комментариев изменяется на указанный.

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


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

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

1. В документе вы измените размер шрифта комментария, нажмите другой + 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 for Word диалоговое окно, введите новый шрифт для комментариев и нажмите OK.

5. В секунду Kutools for Word диалоговое окно, введите размер шрифта по мере необходимости и нажмите OK.

Затем размер шрифта всех воздушных шаров комментариев изменяется на указанный в текущем документе.



Рекомендуемые инструменты для повышения производительности Word

Kutools For Word - больше, чем расширенные возможности 100 для Microsoft Word, сэкономьте время 50%

  • Сложные и повторяющиеся операции могут быть выполнены одноразовой обработкой за считанные секунды.
  • Вставьте несколько изображений из папок в документ Word одновременно.
  • Объединяйте и объединяйте несколько файлов Word в разных папках в нужном вам порядке.
  • Разделите текущий документ на отдельные документы в соответствии с заголовком 1, разрывом раздела или другими критериями.
  • Конвертировать файлы между Doc и Docx, Docx и PDF, набор инструментов для общих преобразований и выбора, и так далее...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.