Update Bookmarks from a Userform

macropod · #1 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

alshcover · #2 04-30-2014, 10:56 AM

Quote:

Originally Posted by macropod

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()
...
End Sub

That worked. Thank you very much!

scarda · #3 01-12-2015, 06:39 PM

Has anyone had any luck in adding a st (for 1), nd (for 2) rd (for 3) or th (for 4,5,6,7,8,9,0) following the DD in this code?

Quote:

Originally Posted by macropod

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

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

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