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
= 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é. 

Statistiques

Aujourd'hui810
Hier1884
Cette semaine10740
Ce mois35089
Total depuis 200410603914

6
visiteurs actuellement en ligne