如何使用VBA在Word中的注释中设置作者姓名？

Question

我有 MS Word 的小模板。我想用超链接添加评论。我已经可以使用以下代码添加评论，但我想设置该评论的作者姓名。我不知道该怎么做。

这是我的工作代码：（当前未设置作者）

URLText = "https:\\www.google.com"
Selection.Comments.Add Range:=Selection.Range
With Selection
        .TypeText (CommentText)                        'Add comment text
        .Hyperlinks.Add Anchor:=Selection.Range, _     'Add hyperlink to comment
        Address:=URLText, _   
        ScreenTip:=URLText, _
        TextToDisplay:=URLText
End With

但是我已经尝试过以下代码。其中设置了作者姓名，但我无法通过这种方式在评论中添加超链接：

Dim cmtMyComment As Comment
Dim link As Hyperlink
link.Address = URLText
link.ScreenTip = URLText
link.TextToDisplay = URLText


Set cmtMyComment = Selection.Comments.Add(Range:=Selection.Range, _
Text:=(CommentText)
cmtMyComment.Author = "ABC"

我没有找到设置超链接的属性。

有人可以建议我如何设置作者姓名吗？我已经尝试过但没有找到任何财产。

Answer 1

嗯，有一个

Author

属性，您可以像这样设置，并且超链接仍然有效，正如您在下面的 GIF 中看到的那样

Public Sub AddCommentWithLink()
    URLText = "https:\\www.google.com"
    Set Comment = Selection.Comments.Add(Range:=Selection.Range)
    Comment.Author = "Donald Duck"
    With Selection
            .TypeText (CommentText)
            .Hyperlinks.Add Anchor:=Selection.Range, _
            Address:=URLText, _
            ScreenTip:=URLText, _
            TextToDisplay:=URLText
    End With
End Sub

这会导致这样的评论

Answer 2

为您祈祷，我在2010年被诊断出来，似乎很快就走下坡路了。六年后，我无法再工作，并且在平衡和关节疼痛方面遇到了真正的问题。脑雾有时真的很糟糕。我服用了 rebif，遇到了很多问题，不得不戒掉。我已经使用 techfadera（拼写不正确）几年了，并且有一些副作用。由于副作用，我感到失落并决定停止服药。我们的护理人员向我介绍了阿育吠陀治疗。我的所有症状都完全消失，包括视力问题、麻木等。有时，我完全忘记了我曾经患有多发性硬化症。访问天然草药中心网站naturalherbscentre。 com.我对这种治疗非常满意。我吃得好、睡得好并且经常锻炼。上帝保佑所有MS战士