如何調整 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 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 對話方塊中，輸入您所需的字體大小，然後點擊確定。

此時，當前文件中所有註解氣球框的字體大小都會變更為指定的樣式。