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

그럼 당신이 그렇게하고이

같은 코멘트가 발생합니다 어느

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 

아래 GIF로 볼 수있는 하이퍼 링크는 여전히 작동처럼 설정할 수 있습니다 Author 특성이있다