☰

在 Microsoft Word 中插入注释气泡的宏？

tag-icon • tag-icon microsoft-word visual-basic
在 Microsoft Word 中插入注释气泡的宏？

我遇到了一个问题，我想知道宏是否可以解决它：

我想要一个宏，它可以遍历 Microsoft Word 文档，查找每个出现的文本字符串，然后突出显示该字符串并创建一个包含第二个文本字符串（例如，“这似乎是错误的。”）的注释气泡（使用“跟踪更改”获得的类型）。

宏能以这样的方式插入注释气泡吗？

答案1

刚刚编写了这段代码（在 Word 2010 上，虽然看不到任何阻止它在旧版本上运行的东西）：

Sub CommentBubble()
'
' CommentBubble Macro
'
'
Dim range As range
Set range = ActiveDocument.Content

Do While range.Find.Execute("aaa") = True
    ActiveDocument.Comments.Add range, "my comment"
Loop
End Sub

虽然显然需要稍微整理一下，但这是可行的：）您可以创建一个评论对象（并指定作者、姓名首字母等内容……但不能选择颜色！）

相关内容