Comment définir le nom de l'auteur dans un commentaire dans Word à l'aide de VBA?

Question

J'ai un petit modèle pour MS Word. Je veux ajouter un commentaire avec un lien hypertexte. Je peux déjà ajouter le commentaire avec le code suivant, mais je veux définir le nom de l'auteur de ce commentaire. Je ne sais pas comment faire ça.

Voici mon code de travail: (auteur n'est pas définie actuellement)

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 

Cependant, j'ai essayé par le code suivant. Quel ensemble nom de l'auteur, mais je ne peux pas ajouter lien hypertexte dans mon commentaire de cette façon:

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" 

Je ne trouve pas la propriété de mettre en lien hypertexte. Est-ce que quelqu'un peut me suggérer comment définir le nom de l'auteur? J'ai essayé mais n'ai trouvé aucune propriété.

Answer 1

Eh bien il y a une propriété Author que vous pouvez définir comme tant et le lien hypertexte fonctionne toujours comme vous pouvez le voir avec le GIF ci-dessous

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 

Ce qui se traduira par un commentaire comme celui-ci