Comment est-il possible d'ajouter un commentaire via des macros pour une région de mots sélectionnée?

Question

J'essaie de créer un morceau de code pour ajouter un commentaire via un raccourci.

J'ai trouvé une macro, mais lorsque je lance la macro, tout semble correct (mise en surbrillance précise en fond gris), sauf que le commentaire est ajouté uniquement au dernier mot du groupe sélectionné.

Est-il possible d'avoir un commentaire non seulement pour le dernier mot d'une phrase mais pour tout le groupe de mots sélectionné?

P.S. Est-il également possible de prendre du texte à partir du presse-papiers et de le coller directement sans avoir à le coller manuellement (faire clignoter le curseur dans le commentaire, puis ctrl + V)? Au lieu de vérifier cette valeur à partir d'un code.

Merci beaucoup pour votre aide.

Sub Gray() 
' 
' Gray 
' 
' 
Options.DefaultHighlightColorIndex = wdGray25 
Selection.Range.HighlightColorIndex = wdGray25 
Selection.Collapse Direction:=wdCollapseEnd 
ActiveDocument.Comments.Add _ 
Range:=Selection.Range, Text:=" review this" 
End Sub 

Answer 1

Si vous supprimez Selection.Collapse, le commentaire s'appliquera à l'ensemble de la sélection.

nouvelle suggéré procédure secondaire:

Sub Gray() 

Selection.Range.HighlightColorIndex = wdGray25 
Selection.Comments.Add _ 
Range:=Selection.Range, Text:=" review this" 

End Sub 

texte du presse-papiers peut être tiré en appelant une fonction API Windows. Voir this previous question pour plus de détails.

Je recommande d'utiliser un raccourci différent de Ctrl +V pour déclencher votre macro.