texbox insertion

Question

bonjour  
avec ce code le curseur se place devant le signet mais ne remplace pas le nom de mon signet par le texte tapé dans ma boite de dialogue 
Merci de votre patience je suis débutant 
A+ didier

Private Sub CommandButton1_Click()

End Sub

Private Sub TextBox1_Change()
ActiveDocument.Bookmarks("nom").Select
Selection.InsertAfter Ma_variable

End Sub

Bendes · Answer

if ActiveDocument.Bookmarks.Exist("nom") then
  ActiveDocument.Bookmarks("nom").Select
  Selection.Text = Ta_Variable
  ActiveDocument.Bookmarks.Add "nom", Selection.Range
end if

didgi · Answer

ca ne marche pas 

rivate Sub TextBox1_Change()
ActiveDocument.Bookmarks("nom").Select
Selection.InsertAfter Ma_Variable
If ActiveDocument.Bookmarks.Exist("nom") Then
ActiveDocument.Bookmarks("nom").Select
Selection.Text = Ma_Variable
ActiveDocument.Bookmarks.Add "nom", Selection.Range
End If

Il y a un problème avec Bookmarks.Exist ???????

Merci tout de même

didgi · Answer

ca ne marche pas 

rivate Sub TextBox1_Change()
ActiveDocument.Bookmarks("nom").Select
Selection.InsertAfter Ma_Variable
If ActiveDocument.Bookmarks.Exist("nom") Then
ActiveDocument.Bookmarks("nom").Select
Selection.Text = Ma_Variable
ActiveDocument.Bookmarks.Add "nom", Selection.Range
End If

Il y a un problème avec Bookmarks.Exist ???????

Merci tout de même

Texbox insertion

3 réponses

Discussions similaires