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
 

Statistiques

Aujourd'hui111
Hier2573
Cette semaine8082
Total depuis 200410015191

6
visiteurs actuellement en ligne