如何更改Word文档中批注文字的字体大小？

Author: Siluvia Last Modified: 2025-05-07

如下截图所示，如果想放大Word文档中批注文字的字体大小，您能做什么？本文将向您展示两种解决此问题的方法。

Font size of comment text is changed

使用Word中的内置功能更改批注的字体大小

使用VBA代码更改批注的字体大小

使用Word中的内置功能更改批注框的字体大小

您可以直接在Word的“所有样式”窗格中更改气球文本的字体大小。请按照以下步骤操作。

1. 按 Ctrl + Alt + Shift + S 键打开“样式”窗格。

2. 在“样式”窗格中，点击“选项”。见截图：

Styles pane with Options button highlighted

3. 在打开的“ 样式窗格选项”窗口中，从“选择要显示的样式”下拉列表中选择“ 所有样式”。

Style Pane Options dialog box

4. 然后点击确定返回到样式窗格，请向下滚动找到 气球文本 行，点击按钮展开下拉列表，然后点击修改。见截图：

Styles pane with Modify option highlighted

5. 在“修改样式”窗口中，在“格式设置”部分选择所需的字体大小，如下截图所示，然后点击“确定”按钮。

Modify Style window

6. 关闭“样式”窗格。

然后所有批注框的字体大小都会更改为指定的大小。

Font size of comment text is changed

注意：该设置将应用于未来所有的批注。

使用VBA代码更改批注框的字体大小

本节将介绍一个VBA代码，帮助您轻松更改Word文档中批注框的字体大小。

1. 在您要更改批注框字体大小的文档中，按 Alt + F11 键打开Microsoft Visual Basic for Applications窗口。

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对话框中，输入新的批注字体并点击“确定”。

Dialog box for entering a font for comments