如何更改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 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 / 将页面导出为图像 / 一次打印多个文件...
✏ 内容编辑: 批量查找和替换 跨多个文件 / 调整所有图片的大小 / 转置表行和列 / 将表格转换为文字...
🧹 轻松清洁: 移开 多余的空间 / 分节符 / 所有标题 / 文本框 / 超链接 / 如需更多拆卸工具,请前往我们的 删除组...
➕ 创意插入: 插 千位分隔符 / 复选框 / 单选按钮 / 扫码支付 / 条码 / 对角线表 / 公式标题 / 图片说明 / 表标题 / 多张图片 / 发现更多 插入组...
🔍 精准选择:精确定位 特定页面 / 表 / 形状 / 标题段落 / 增强导航功能 更多 选择功能...
⭐ 星级增强: 快速导航至任何位置 / 自动插入重复文本 / 在文档窗口之间无缝切换 / 11 转换工具...