[求助]宏代码怎样插入一个固定格式的标注

2dljdlj70000

怎样插入一个固定格式的标注 ，注意是标注而不是批注，也不是文本框 固定格式的批注，例如固定批注框的大小，底纹，颜色，标注文字的各种格式，还有批注箭头颜色形状，粗细，颜色 应该有这样的宏吧，请斑竹和路过的朋友帮一下忙

[此贴子已经被作者于2006-1-18 8:02:07编辑过]

c81

你用替换法试试

在要插入标注的地方插入个脚注，然后将脚注替换成事先剪贴板上这种文本框的内容。

konggs

Sub 孤独一叶()
Dim ashape As Shape
For Each ashape In ActiveDocument.Shapes
If ashape.AutoShapeType = msoShapeRoundedRectangularCallout = True Then
ashape.TextFrame.MarginLeft = 4
ashape.TextFrame.MarginRight = 5
ashape.TextFrame.MarginTop = 5
ashape.TextFrame.MarginBottom = 9
End If
Next
End Sub