Formatting long date in Word 2013 template

[Iris]

Hi

I have the following template which is working however I would like to format for the DTPicker1 (DTPicker2 is to remain as short date) so that when it appears in the bookmark MeetingDate that the date appears as Tuesday 18 March 2015 - can you please assist? It currently appears in Doc as 18/03/2015. On the form I have set the format as dtpLongDate.

Sub ProcessDocument()
Dim oFrm As New frmjointventure
Dim oBM As Bookmark
Dim i As Long, j As Long
With oFrm
For Each oBM In ActiveDocument.Bookmarks
If Not oBM.Range.Text = "" Then
Select Case oBM.Name
Case "LegalBusinessName": oFrm.LegalBusName.Text = Trim(oBM.Range.Text)
Case "LBN2": oFrm.LegalBusName.Text = Trim(oBM.Range.Text)
Case "BusinessName": oFrm.BusName.Text = Trim(oBM.Range.Text)
Case "MeetingDate": oFrm.DTPicker1.Value = Trim(oBM.Range.Text)
Case "LexingtonDate": oFrm.DTPicker2.Value = Trim(oBM.Range.Text)
Case "BN3": oFrm.BusName.Text = Trim(oBM.Range.Text)
Case "BN4": oFrm.BusName.Text = Trim(oBM.Range.Text)
Case "BN5": oFrm.BusName.Text = Trim(oBM.Range.Text)
Case "BN6": oFrm.BusName.Text = Trim(oBM.Range.Text)
Case "BN7": oFrm.BusName.Text = Trim(oBM.Range.Text)
Case "BN8": oFrm.BusName.Text = Trim(oBM.Range.Text)
Case "BN9": oFrm.BusName.Text = Trim(oBM.Range.Text)
Case "BN10": oFrm.BusName.Text = Trim(oBM.Range.Text)
Case "BN11": oFrm.BusName.Text = Trim(oBM.Range.Text)
Case "BN12": oFrm.BusName.Text = Trim(oBM.Range.Text)
Case "BN13": oFrm.BusName.Text = Trim(oBM.Range.Text)
Case "BN14": oFrm.BusName.Text = Trim(oBM.Range.Text)
Case "BN15": oFrm.BusName.Text = Trim(oBM.Range.Text)
Case "BN16": oFrm.BusName.Text = Trim(oBM.Range.Text)
Case "BN17": oFrm.BusName.Text = Trim(oBM.Range.Text)
Case "BN18": oFrm.BusName.Text = Trim(oBM.Range.Text)
Case "BN19": oFrm.BusName.Text = Trim(oBM.Range.Text)
Case "BN20": oFrm.BusName.Text = Trim(oBM.Range.Text)
Case "BN21": oFrm.BusName.Text = Trim(oBM.Range.Text)
Case "BN22": oFrm.BusName.Text = Trim(oBM.Range.Text)
Case "BN23": oFrm.BusName.Text = Trim(oBM.Range.Text)
Case "BN24": oFrm.BusName.Text = Trim(oBM.Range.Text)
Case "BN25": oFrm.BusName.Text = Trim(oBM.Range.Text)
Case "BN26": oFrm.BusName.Text = Trim(oBM.Range.Text)
Case "BN27": oFrm.BusName.Text = Trim(oBM.Range.Text)
Case "BN28": oFrm.BusName.Text = Trim(oBM.Range.Text)
Case "BN29": oFrm.BusName.Text = Trim(oBM.Range.Text)
Case "BN30": oFrm.BusName.Text = Trim(oBM.Range.Text)
Case "LBN3": oFrm.LegalBusName.Text = Trim(oBM.Range.Text)
Case "Address": oFrm.Address.Text = Trim(oBM.Range.Text)
Case "BusinessContact": oFrm.BusinessContact.Text = Trim(oBM.Range.Text)
Case "BusinessType": oFrm.BusinessType.Text = Trim(oBM.Range.Text)
Case "ContactPh": oFrm.ContactPh.Text = Trim(oBM.Range.Text)
Case "Name": oFrm.JVPName1.Text = Trim(oBM.Range.Text)
Case "Title": oFrm.JVPTitle1.Text = Trim(oBM.Range.Text)
Case "Name2": oFrm.JVPName2.Text = Trim(oBM.Range.Text)
Case "Title2": oFrm.JVPTitle2.Text = Trim(oBM.Range.Text)
Case "RevJVP": oFrm.RevJP.Text = Trim(oBM.Range.Text)
Case "RevJVP2": oFrm.RevJP.Text = Trim(oBM.Range.Text)
Case "RevLA": oFrm.RevLA.Text = Trim(oBM.Range.Text)
End Select
End If
Next oBM
.Show
If .Tag = 0 Then GoTo lbl_Exit
FillBM "LegalBusinessName", .LegalBusName.Text
FillBM "LBN2", .LegalBusName.Text
FillBM "BusinessName", .BusName.Text
FillBM "MeetingDate", .DTPicker1.Value
FillBM "LexingtonDate", .DTPicker2.Value
FillBM "BN3", .BusName.Text
FillBM "BN4", .BusName.Text
FillBM "BN5", .BusName.Text
FillBM "BN6", .BusName.Text
FillBM "BN7", .BusName.Text
FillBM "BN8", .BusName.Text
FillBM "BN9", .BusName.Text
FillBM "BN10", .BusName.Text
FillBM "BN11", .BusName.Text
FillBM "BN12", .BusName.Text
FillBM "BN13", .BusName.Text
FillBM "BN14", .BusName.Text
FillBM "BN15", .BusName.Text
FillBM "BN16", .BusName.Text
FillBM "BN17", .BusName.Text
FillBM "BN18", .BusName.Text
FillBM "BN19", .BusName.Text
FillBM "BN20", .BusName.Text
FillBM "BN21", .BusName.Text
FillBM "BN22", .BusName.Text
FillBM "BN23", .BusName.Text
FillBM "BN24", .BusName.Text
FillBM "BN25", .BusName.Text
FillBM "BN26", .BusName.Text
FillBM "BN27", .BusName.Text
FillBM "BN28", .BusName.Text
FillBM "BN29", .BusName.Text
FillBM "BN30", .BusName.Text
FillBM "LBN3", .LegalBusName.Text
FillBM "Address", .Address.Text
FillBM "BusinessContact", .BusinessContact.Text
FillBM "BusinessType", .BusinessType.Text
FillBM "ContactPh", .ContactPh.Text
FillBM "Name", .JVPName1.Text
FillBM "Title", .JVPTitle1.Text
FillBM "Name2", .JVPName2.Text
FillBM "Title2", .JVPTitle2.Text
FillBM "RevJVP", .RevJP.Text
FillBM "RevJVP2", .RevJP.Text
FillBM "RevLA", .RevLA.Text
End With
lbl_Exit:
Unload oFrm
Set oFrm = Nothing
Exit Sub
End Sub

Thank you

[gmayor]

Change

FillBM "MeetingDate", .DTPicker1.Value
to

FillBM "MeetingDate", Format(.DTPicker1.Value, "Long Date")
or

FillBM "MeetingDate", Format(.DTPicker1.Value, "dddd d mmmm yyyy")
I note that you are filling lots of bookmarks with the same value


FillBM "BN3", .BusName.Text

while this undoubtedly works, inserting cross references to the original bookmark in the document itself might be preferable.

[Iris]

Thank you