Commentaire unique pour plusieurs occurences d'un mot
Résolu
Poupette
-
Poupette -
Poupette -
Bonjour à tous,
Pourriez-me dire s'il est possible de faire un seul commentaire dans un doc Word mais qui concernerait plusieurs occurences du même mot au lieu d'avoir "commentaire1" puis "commentaire 2" autant de fois qu'on va sélectionner ce mot avec la souris? Je veux dire quand le commentaire est identique. J'ai essayé en sélectionnant le mot avec la touche CTRL autant de fois qu'il apparait mais cela n'a pas fonctionné pour mettre un seul commentaire dans la marge.
Je vous remercie par avance de vos réponses....surtout un dimanche matin !
Pourriez-me dire s'il est possible de faire un seul commentaire dans un doc Word mais qui concernerait plusieurs occurences du même mot au lieu d'avoir "commentaire1" puis "commentaire 2" autant de fois qu'on va sélectionner ce mot avec la souris? Je veux dire quand le commentaire est identique. J'ai essayé en sélectionnant le mot avec la touche CTRL autant de fois qu'il apparait mais cela n'a pas fonctionné pour mettre un seul commentaire dans la marge.
Je vous remercie par avance de vos réponses....surtout un dimanche matin !
2 réponses
-
Bonsoir
Non, la fonction word ne le prévoit pas
Peut-être par macro ?...
-
Bonjour,
Tu parles bien de commentaire ou bien d'une note de bas de page ?
Si c'est note de bas de page, regarde ici :
https://faqword.com/index.php/word/faq-word/mise-en-forme/154-comment-faire-plusieurs-references-a-une-note-de-bas-de-page
Si c'est commentaire, effectivement il faut une macro.
Celle-ci devrait te convenir :
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
m@rina
-
Bonjour M@rina !
Très très matinale à ce que je vois et déjà en train de vous creuser la tête pour faire une macro !
Oui, il s'agissait bien d'un commentaire et non d'une note de bas de page.
Vraiment super méga sympa de vous être donné la peine de me fournir la solution ! Merciiiiiiii !
Bonne fin de nuit à vous.
Poupette
-
