提示:其它语言是由 Google 机器翻译的。 你可以访问 English 版本。
登录
x
or
x
x
马上登记
x

or

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

如下图所示,如果要在Word文档中放大注释气球的字体大小,您可以做什么? 本文将向您展示两种解决此问题的方法。

使用Word中的内置函数更改注释气球的字体大小

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


使用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.

然后,所有注释气球的字体大小将更改为当前文档中的指定字体。



推荐的Word生产力工具

Kutools For Word - 超过100 Word的高级功能,节省您的50%时间

  • 复杂和重复的操作可以在几秒钟内完成一次性处理。
  • 一次将多个图像跨文件夹插入Word文档。
  • 将多个文件夹合并并组合成一个具有所需订单的文件。
  • 根据标题,分节符或其他标准将当前文档拆分为单独的文档。
  • 在Doc和Docx,Docx和PDF之间转换文件,用于常见转换和选择的工具集合等等......
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.