user_mobilelogo

Pour tout connaître sur Word
Nouvelle version !

600 pages !

9,80 € 

En savoir plus.

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'hui589
Hier1323
Cette semaine15379
Ce mois60041
Total depuis 200414833018

13
visiteurs actuellement en ligne

26 mars 2023