Update Bookmarks from a Userform

macropod · #2 04-29-2014, 06:57 PM

All you need do is specify the output format of 'dtDateFiled.Value'. However, as written, your code also doesn't allow the date to be updated within the bookmark and lacks error-handling. Try:

Code:

Private Sub cmdOK_Click()
Application.ScreenUpdating = False
Dim BmkNm As String, NewTxt As String, BmkRng As Range
BmkNm = "DateFiled"
With ActiveDocument
  If .Bookmarks.Exists(BmkNm) Then
    Set BmkRng = .Bookmarks(BmkNm).Range
    BmkRng.Text = Format(dtDateFiled.Value, "MMMM DD, YYYY ")
    .Bookmarks.Add BmkNm, BmkRng
  Else
    MsgBox "Bookmark: " & BmkNm & " not found."
  End If
End With
Set BmkRng = Nothing
Application.ScreenUpdating = True
Unload Me
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Checkbox in Userform	lukael	Excel Programming	5	02-18-2014 05:20 AM
Userform Code not quite right - help please	vbanovice	Word VBA	1	09-29-2013 09:20 PM
Help with a drop down in userform and variables	leemoreau	Word VBA	1	09-14-2013 06:01 AM
VBA code to update record in Access 2003 using Userform in Excel	primmer3001	Excel Programming	0	08-29-2011 04:25 PM
Update bookmarks and variables in document	webharvest	Word VBA	5	06-21-2011 03:22 PM