Form updating Bookmarks

macropod · #2 01-13-2015, 09:20 PM

Ideally, you'd only press Enter once. However, the basic problem is that you're not updating the bookmarks - you're simply using them as placeholders to insert the text. To update the bookmarks, you should be using code like:

Code:

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Call UpdateBookmark("Snr", Me.TextBox1.Value)
Call UpdateBookmark("Bes", Me.TextBox2.Value)
Call UpdateBookmark("Ini", Me.TextBox3.Value)
Application.ScreenUpdating = True
UserForm1.Hide
End Sub
 
Sub UpdateBookmark(StrBkMk As String, StrTxt As String)
Dim BkMkRng As Range
With ActiveDocument
  If .Bookmarks.Exists(StrBkMk) Then
    Set BkMkRng = .Bookmarks(StrBkMk).Range
    BkMkRng.Text = StrTxt
    .Bookmarks.Add StrBkMk, BkMkRng
  End If
End With
Set BkMkRng = Nothing
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Can't See Bookmarks	bobmayo	Word	21	06-04-2013 07:37 AM
make a form that can be used multiple times at once	Dsp581	Excel	19	04-05-2013 07:25 AM
Word only writes top half of input in form	Chippychap	Word	8	07-20-2012 12:49 AM
VBA code to extract specific bookmarks from multiple word files	Rattykins	Word VBA	4	06-27-2012 10:02 PM
Bookmarks for a PDF?	Ownaholic	Word	0	10-30-2010 12:27 AM