user_mobilelogo

Pour tout connaître sur Word
Nouvelle version !

600 pages !

9,80 € 

En savoir plus.

 

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'hui309
Hier2734
Cette semaine3043
Ce mois3043
Total depuis 200412827607

18
visiteurs actuellement en ligne

2 mars 2021