Commentaire unique pour plusieurs occurences d'un mot

Résolu/Fermé
Poupette - Modifié par Poupette le 21/02/2016 à 09:48
 Poupette - 22 févr. 2016 à 04:45
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 !
A voir également:

2 réponses

Argitxu Messages postés 4831 Date d'inscription dimanche 22 juillet 2007 Statut Contributeur Dernière intervention 3 mars 2024 4 726
21 févr. 2016 à 20:30
Bonsoir

Non, la fonction word ne le prévoit pas
Peut-être par macro ?...
0
Merci de votre réponse Argitxu.
Je suis une débutante en macro... vais pas me lancer...
Bonne soirée à vous.

Poupette
0
m@rina Messages postés 20172 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 7 mai 2024 11 278
22 févr. 2016 à 04:27
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
0
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
0