如何更改Word文檔中註釋氣球的字體大小?
如下面的屏幕截圖所示,如果要放大Word文檔中註釋氣球的字體大小,該怎麼辦? 本文將向您展示兩種解決此問題的方法。
在Word中使用內置功能更改註釋氣球的字體大小
您可以在Word的“所有樣式”窗格中直接更改氣球文本的字體大小。 請執行以下操作。
1。 按 按Ctrl + 其他 + 轉移 + S 鍵打開 樣式 窗格。
2。 在裡面 樣式 窗格中單擊 選項。 看截圖:
3.在開幕 樣式窗格選項 窗口,選擇 所有樣式 來自 選擇要顯示的樣式 下拉列表。
4。 然後點擊 OK 回到了 樣式 窗格,請向下滾動以找到 氣球文字 行,單擊 按鈕以展開下拉列表,然後單擊 修改。 看截圖:
5。 在裡面 修改樣式 窗口中,根據需要選擇字體大小 格式化 部分,如下圖所示,然後單擊 OK 按鈕。
6。 關上 樣式 窗格。
然後,所有註釋氣球的字體大小更改為指定的字體。
備註:此設置以後將應用於所有評論。
使用VBA代碼更改註釋氣球的字體大小
本節將介紹VBA代碼,以幫助您輕鬆更改Word文檔中註釋氣球的字體大小。
1.在文檔中,您將更改註釋氣球的字體大小,然後按 其他 + 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 對話框中,輸入新字體作為註釋,然後單擊 OK.
5.在第二 Kutools for Word 對話框中,根據需要輸入字體大小,然後單擊 OK.
然後,所有註釋氣球的字體大小將更改為當前文檔中指定的字體。
最佳辦公生產力工具
Kutools for Word - 透過 Over 提升您的文字體驗 100 顯著特點!
🤖 Kutools 人工智慧助手:用人工智慧改變你的寫作 - 生成內容 / 重寫文字 / 總結文件 / 查詢資料 基於文檔,全部在Word中
📘 文件掌握: 分頁 / 合併文件 / 以各種格式匯出選擇(PDF/TXT/DOC/HTML...) / 批次轉換為PDF / 將頁面匯出為圖像 / 一次列印多個文件...
✏ 內容編輯: 批量查找和替換 跨多個文件 / 調整所有圖片的大小 / 轉置表行和列 / 將表格轉換為文字...
🧹 輕鬆清潔: 移開 多餘的空間 / 分節符 / 所有標題 / 文本框 / 超鏈接 / 如需更多拆卸工具,請前往 刪除群組...
➕ 創意插入: 插入 千位分隔符 / 複選框 / 單選按鈕 / QR Code / 條碼 / 對角線表 / 公式標題 / 圖片說明 / 表格標題 / 多張圖片 / 發現更多 插入群組...
🔍 精準選擇:精確定位 特定頁面 / 檯 / 形狀 / 標題段落 / 增強導航功能 更多 選擇功能...
⭐ 星級增強: 導航到任何位置 / 自動插入重複文字 / 在文檔視窗之間切換 / 11 轉換工具...