☰

在 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

這是可行的，儘管顯然需要整理一下:)您可以創建一個 Comment 物件（並指定諸如作者、首字母縮寫之類的內容......但不能選擇顏色！）

相關內容