如何使用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

这将导致像这样的评论