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

如以下截图所示，如果您希望放大 Word 文档中批注文本的字体大小，该如何操作？本文将为您介绍两种实用方法。

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

通过 VBA 代码更改批注的字体大小

---

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

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

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

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

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

4. 点击“确定”后，返回“样式”窗格，请向下滚动，找到 Balloon Text，单击按钮展开下拉列表，再点击“修改”。见截图：

5. 在“修改样式”窗口中，于“格式设置”区域根据下方截图选择所需字体大小，然后单击“确定”按钮。

6. 关闭“样式”窗格即可。

这样，所有批注气泡的字体大小就已更改为您指定的设置。

注意：此设置将应用于之后的所有批注。

---

通过 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 对话框中，输入所需字体后，点击“确定”。

5. 在第二个 Kutools for Word 对话框中，输入所需字体大小后，点击“确定”即可。

这样，当前文档中所有批注气泡的字体大小都会被更改为您指定的设置。