如何更改Word文檔中批註文字的字體大小？

Author: Siluvia Last Modified: 2025-05-12

如下方螢幕截圖所示，如果您想在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