Recherche

 

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

France 76,0% France
Canada 7,9% Canada
États-Unis d'Amérique 4,7% États-Unis d'Amérique

Total:

66

Pays
018274370
Aujourd'hui: 10
Hier: 145
Cette semaine: 693
Semaine dernière: 783
Ce mois: 2.632