Pour commencer, créer un Userform avec une Listbox et un bouton de commande. Voir à ce sujet cet article sur les Userforms.
Dans le document, insérez des signets et nommez-les avec des numéros afin qu'ils correspondent à l'ordre des items de la Listbox, par exemple signet1, signet3, signet3, etc.
Affectez le code suivant au bouton de commande :
Private Sub CommandButton1_Click()
'macro écrite par m@rina
Dim i, x
Dim s_range As Range
For i = 0 To ListBox1.ListCount - 1
x = i + 1
Set s_range = ActiveDocument.Bookmarks("signet" & x).Range
If ListBox1.Selected(i) = True Then
s-range.Text = ListBox1.List(i)
Else
s_range.Text = ""
End If
ActiveDocument.Bookmarks.Add "signet" & x, s_range
Next i
End Sub
Ce code ajoute les textes sélectionnés dans la ListBox aux signets correspondants.
Si la ligne n'est pas sélectionnée, le texte du signet est supprimé.