Vba 如何更改MS Word文档中插入的注释的背景色?

Vba 如何更改MS Word文档中插入的注释的背景色?,vba,ms-word,comments,Vba,Ms Word,Comments,当我通过在MS Word 2010中单击Review->Comments->New comment在文档中输入注释时,Word允许我输入注释。但是,我无法更改注释框的背景色 是否有一种方法可以在MS Word中更改注释框的背景颜色 我这样问是因为,我正在编写一个VBA代码来读取文档中插入的所有注释。我还想获得有关评论框背景颜色的信息。因此,如果可以使用功能区中提供的工具完成,也可以通过VBA完成。考虑到这一点,我提出了这个问题。我注意到,在Word中,评论的背景颜色不能由您决定,但可以通过更改当

当我通过在MS Word 2010中单击
Review->Comments->New comment
在文档中输入注释时,Word允许我输入注释。但是,我无法更改注释框的背景色

是否有一种方法可以在MS Word中更改注释框的背景颜色


我这样问是因为,我正在编写一个VBA代码来读取文档中插入的所有注释。我还想获得有关评论框背景颜色的信息。因此,如果可以使用功能区中提供的工具完成,也可以通过VBA完成。考虑到这一点,我提出了这个问题。

我注意到,在Word中,评论的背景颜色不能由您决定,但可以通过更改当前用户的用户名来随机更改(至少对我而言)

例如,我最初把所有的评论都放在粉红色的盒子里。直到我执行了这个

Application.UserName = "Ahmad MUTAWA"
之后,我添加的每个评论都放在一个紫色的框中。我做了另一个改变

Application.UserName = "Ahmad"
然而,我的新评论被添加到另一个粉红色的阴影中。请看附带的屏幕截图。这些评论有三种不同的颜色,但都是我用不同的用户名添加的。

因此,您可以查找由不同的
审阅者编写的注释,因为每个reveiwer本质上都是一个用户名。

如前所述,您可以通过让注释具有不同的作者来更改注释的颜色

您可以通过ActiveDocument.comments访问所有注释

如下所示:

dim c as Comment
For each c in ActiveDocument.Comments
    'Give each comment a unique author.
    c.Author = "Author" & c.Index
next
会改变每个评论的作者,每个评论都会有不同的颜色


也就是说,您应该能够阅读所有评论,并通过跟踪评论作者来确定颜色是否相同。但是,似乎没有任何实用的方法通过代码更新注释的颜色,甚至不知道注释的实际颜色。

转到
查看->跟踪更改
选项,它会给您(作者)有机会更改注释的颜色,以便您可以将其更改为不同于红色和蓝色的颜色

看起来是
Comment.Scope.Font.Fill.BackColor.RGB
。。。无法确认,因为我在这台计算机上缺少Word 2010。@DanielCook:您能在任何版本的MS Word上实现所需的行为吗?不,我对范围的理解是错误的。要获得注释的文本,您只需要获得注释的范围,但这似乎并不重要。正如艾哈迈德在他的回答中指出的,评论的颜色似乎是由作者定义的。您可以通过引用
Commnet.author
来确定甚至更改评论的作者,这可能会满足您的需要。非常感谢Ahmad的回答。接受其他答案,因为它有一个代码片段,如果有人看到这篇文章,他们也会很感激。