如何更改Word文档中注释气球的字体大小？
如下面的屏幕截图所示，如果要放大Word文档中注释气球的字体大小，该怎么办？ 本文将向您展示两种解决此问题的方法。
在Word中使用内置功能更改注释气球的字体大小
您可以在Word的“所有样式”窗格中直接更改气球文本的字体大小。 请执行以下操作。
1。 按 按Ctrl + 其他 + 转移 + S 键打开 样式 窗格。
2.在 样式 窗格中单击 附加选项。 看截图：
3.在开幕 样式窗格选项 窗口，选择 所有款式 来自 选择要显示的样式 下拉列表。
4。 然后点击 OK 回到了 样式 窗格，请向下滚动以找到 气球文字 行，单击 
按钮以展开下拉列表，然后单击 修改。 看截图：
5.在 修改样式 窗口中，根据需要选择字体大小 格式化 部分，如下图所示，然后单击 OK 按钮。
6.关闭 样式 窗格。
然后，所有注释气球的字体大小更改为指定的字体。
备注：此设置以后将应用于所有评论。
使用VBA代码更改注释气球的字体大小
本节将介绍VBA代码，以帮助您轻松更改Word文档中注释气球的字体大小。
1.在文档中，您将更改注释气球的字体大小，然后按 其他 + F11 键打开 Microsoft Visual Basic应用程序 窗口。
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 Sub3。 按 F5 键来运行代码。
4.在第一 Kutools for Word 对话框中，输入新字体作为注释，然后单击 OK.
5.在第二 Kutools for Word 对话框中，根据需要输入字体大小，然后单击 OK.
然后，所有注释气球的字体大小将更改为当前文档中指定的字体。
最佳办公生产力工具
Kutools for Word - 通过 Over 提升您的文字体验 100 显着特点！
🤖 Kutools 人工智能助手：用人工智能改变你的写作 - 生成内容 / 重写文本 / 总结文件 / 查询资料 基于文档，全部在Word中
📘 文档掌握: 分页 / 合并文件 / 以各种格式导出选择（PDF/TXT/DOC/HTML...） / 批量转换为PDF / 将页面导出为图像 / 一次打印多个文件...
✏ 内容编辑: 批量查找和替换 跨多个文件 / 调整所有图片的大小 / 转置表行和列 / 将表格转换为文字...
🧹 轻松清洁: 移开 多余的空间 / 分节符 / 所有标题 / 文本框 / 超链接 / 如需更多拆卸工具，请前往我们的 删除组...
➕ 创意插入： 插 千位分隔符 / 复选框 / 单选按钮 / 扫码支付 / 条码 / 对角线表 / 公式标题 / 图片说明 / 表标题 / 多张图片 / 发现更多 插入组...
🔍 精准选择：精确定位 特定页面 / 表 / 形状 / 标题段落 / 增强导航功能 更多 选择功能...
⭐ 星级增强: 快速导航至任何位置 / 自动插入重复文本 / 在文档窗口之间无缝切换 / 11 转换工具...
