Vous souhaitez ajouter le même commentaire sur un mot répété à plusieurs reprises dans un même document. Comment procéder sans être obligé de copier le commentaire et le coller aux différents endroits ? Une petite macro est nécessaire :
Public Sub comments()
'macro écrite par m@rina
Dim mot As String, commentaire As String
mot = InputBox("Quel est le mot à commenter ?")
commentaire = InputBox("Quel est le commentaire ?")
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.MatchWildcards = True
.Text = mot
While .Execute
Selection.Range.Select
Selection.Comments.Add Range:=Selection.Range, Text:=commentaire
Selection.Collapse wdCollapseEnd
Wend
End With
End Sub