Pour un document de cours de type médecine, je cherche à insérer des commentaires sur les mots compliqués afin d'avoir immédiatement la définition dans le volet Commentaires
Si l'on souhaite avoir ce commentaire sur tous les mots identiques du document, il faut une macro.
Il suffit alors de sélectionner un mot et de lancer la macro. La macro demande de saisir le commentaire et l'attribue à tous les mots identiques au mot sélectionné.
Prenez soin auparavant, pour rendre la fonction plus pratique, d'installer la macro sur le ruban ou la barre d'outils, ou de lui attribuer un raccourci clavier.
Cela risque tout de même de prendre un peut de temps sur un gros document.
Sub infobulle()
'macro écrite par m@rina
Dim masélection As Range
Dim mot
Dim définition As String
Set masélection = Selection.Words(1)
comm = InputBox("Quelle est le commentaire ?")
For Each mot In ActiveDocument.Words
mot.Select
If mot = masélection Then
mot.Comments.Add Range:=Selection.Range
Selection.TypeText Text:=comm
End If
Next
End Sub