user_mobilelogo

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

 

Statistiques

Aujourd'hui2583
Hier3230
Cette semaine15751
Ce mois43756
Total depuis 200411692507

11
visiteurs actuellement en ligne

17 janvier 2020