VBA WORD ne pas supprimer les signets
Résolu/Fermé
A voir également:
- VBA WORD ne pas supprimer les signets
- Supprimer une page word - Guide
- Espace insécable word - Guide
- Supprimer compte instagram - Guide
- Organigramme word - Guide
- Suivi des modifications word - Guide
1 réponse
m@rina
Messages postés
21075
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
3 novembre 2024
11 346
25 juin 2016 à 02:42
25 juin 2016 à 02:42
Bonjour,
C'est effectivement un problème.
Le mieux est de faire une fonction qui va permettre de remplacer le signet sans le détruire :
Et ta macro :
et bien sûr, tu peux utiliser cette fonction avec n'importe quelle valeur récupérée de ton Userform, il suffira de changer simplement dans ta macro le nom du signet.
m@rina
C'est effectivement un problème.
Le mieux est de faire une fonction qui va permettre de remplacer le signet sans le détruire :
Public Function RemplirSignet(A As String, B As String)
' Remplit le signet A avec le texte B sans détruire A
On Error GoTo sortie
Dim Place As Long
Place = ActiveDocument.Bookmarks(A).Range.Start
ActiveDocument.Bookmarks(A).Range.Text = B
ActiveDocument.Bookmarks.Add Name:=A, Range:=ActiveDocument.Range(Place, Place + Len(B))
sortie:
End Function
Et ta macro :
Private Sub CommandButton1_Click()
Dim B As String 'ton signet
B=TextBox1.Value
RemplirSignet "signet", B
Unload Me
End Sub
et bien sûr, tu peux utiliser cette fonction avec n'importe quelle valeur récupérée de ton Userform, il suffira de changer simplement dans ta macro le nom du signet.
m@rina
26 juin 2016 à 20:11