如何更改Word 文档中注释气球的字体大小？

网友投稿 195 2024-02-04

如何更改Word文档中注释气球的字体大小？

如下面的屏幕截图所示，如果要放大Word文档中注释气球的字体大小，该怎么办？本文将向您展示两种解决此问题的方法。

在Word中使用内置功能更改注释气球的字体大小

使用VBA代码更改注释气球的字体大小

在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.