怎么改变word批注框改变大小

查看代码---宏-运行，效果达到
Sub
批量修改批注框大小()
Dim
Cmt
As
Comment
For
Each
Cmt
In
ActiveSheet.Comments
Cmt.Parent.Comment.Shape.Width
=
300
Cmt.Parent.Comment.Shape.Height
=
100
Next
Cmt
End
Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 Then Exit Sub
With Target
If .Value = "atiendhold@yahoo.com.cn" & Chr(10) & "DIKEIDM@TOMTOM.COM" Then
.AddComment
.Comment.Text Text:="1.This message was transferred with a trial version," & Chr(10) & "2) I will not in the office in Monday,May 16 and will back in Tuesday,May 17." & ""
.Comment.Shape.TextFrame.AutoSize = True
End If
End With
End Sub

　　查看代码---宏-运行，效果达到
Sub 批量修改批注框大小()
Dim Cmt As Comment
For Each Cmt In ActiveSheet.Comments
Cmt.Parent.Comment.Shape.Width = 300
Cmt.Parent.Comment.Shape.Height = 100
Next Cmt
End Sub

1、本次操作演示使用的Office办公软件为Word 2013版本。

2、新建一个Word文档，在空白文档处输入演示数据文本，用于演示如何改变Word中的批注字的大小。

3、首先为演示文本插入批注，鼠标点击开始菜单栏中的插入工具，在插入工具中选择批注选项。

4、插入批注之后，点击开始菜单栏中的样式小浮标，展开样式工具栏。

5、在样式工具栏中选择右下角的选项工具，单击鼠标打开。

6、在展开的样式窗格选项中，将显示样式选择成所有样式，然后单击确定完成。

7、这时在点击样式工具栏中的批注文字，然后选中之后鼠标右击，选择修改选项。

8、在修改样式中，修改批注的文字格式，选择字体大小，设置所需格式，这样，批注的大小就修改完成了。

难度在于 如果有换行的情况 将不能识别