Date Picker time in a protected Word form

		Microsoft Office Forums > Microsoft Word > Word VBA
Date Picker time in a protected Word form

FAQ

Thread Tools

Display Modes

04-08-2020, 07:03 AM

gmaxey

Windows 10 Date Picker time in a protected Word form

Office 2016

Expert

Join Date: May 2010

Location: Brasstown, NC

Posts: 1,636

Andrew, good point. This might do better if picking a date other than today.

Code:

Private Sub Document_ContentControlOnExit(ByVal CC As ContentControl, Cancel As Boolean)
  If CC.Type = wdContentControlDate Then
    If IsDate(CC.Range.Text) Then
      If CC.DateDisplayFormat = "M/d/yyyy h:mm:ss am/pm" Then
         CC.Range.Text = Format(CDate(CC.Range.Text), "M/d/yyyy") & " " & Time
      End If
    End If
  End If
End Sub

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/

« Previous Thread | Next Thread »

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
I cannot figure out how to add a date picker, among others, in MS Word 2016 on my mac	Randree	Word	3	04-25-2017 09:44 PM
Possible to link a date picker to another date picker?	tubbz	Word	0	05-07-2014 01:23 PM
Word form w/ autopopulated date/time	Dendalee	Word	1	10-24-2012 11:40 PM
word 2003 date picker	nashville	Word	16	04-06-2012 04:12 AM
Word 2007 date and time picker	dmcohio	Word	2	04-09-2010 04:13 AM

Other Forums: Access Forums

All times are GMT -7. The time now is 06:57 AM.