Formatting Date When Exporting to Word.

[famousb]

Using VB I am creating a new Word document. In this document there are going to be several date fields. They currently come up in the format mm/dd/yyyy. What I want them to do is to appear in a format like Weekday, Month Day, Year. (i.e. Thursday, March 9, 2000).<br>
Is there VB code that specifies this formatting when creating the Word document?<br>
<br>
thanks in advance. <p>Brian Famous<br><a href=mailto:bfamous@ncdoi.net>bfamous@ncdoi.net</a><br><a href= > </a><br>

 

[DougP]

Are you mail-merging data or how are you putting a Date in your Word document?<br>
That will determine the correct procedure to use.<br>
<br>
<p> DougP<br><a href=mailto: dposton@universal1.com> dposton@universal1.com</a><br><a href= > </a><br>

 

[famousb]

it's not technically a mail-merge. i'm using VB open Word, start a new document and to send the information that is on the open form to the document. It's all run through the OnClick procedure of a button on the form. Here is the example, sorry it is kinda long...<br>
<br>
Private Sub PrintMemo_Click()<br>
'Dim MyDB As Database<br>
Dim MySet As Recordset<br>
Dim Exam As String<br>
Dim Today As String<br>
Dim EndDate As String<br>
Dim oApp As Object<br>
Dim objWord As Object<br>
Dim ToEIC As String<br>
Dim ToSE As String<br>
Dim ToAA As String<br>
Dim ToDC As String<br>
Dim ToSDC As String<br>
Dim ToComp As String<br>
<br>
Today = date<br>
Exam = [EIC]<br>
EndDate = [ExDate]<br>
ToEIC = [ExDate] + 10<br>
ToSE = [ExDate] + 22<br>
ToAA = [ExDate] + 32<br>
ToDC = [ExDate] + 40<br>
ToSDC = [ExDate] + 45<br>
ToComp = [ExDate] + 60<br>
<br>
<br>
Set oApp = CreateObject(&quot;Word.Application&quot<br>
oApp.Visible = True<br>
<br>
Set objWord = CreateObject(&quot;Word.Basic&quot<br>
objWord.FileNew<br>
<br>
objWord.Insert &quot;Memorandum&quot;<br>
objWord.InsertPara<br>
objWord.InsertPara<br>
objWord.Insert &quot;To: Donna Champion, Angie Brogden, Dionne Wells, and Nancy O'Dowd&quot;<br>
objWord.InsertPara<br>
objWord.InsertPara<br>
objWord.Insert &quot;Cc:&quot;<br>
objWord.InsertPara<br>
objWord.InsertPara<br>
objWord.Insert &quot;From: &quot;<br>
Select Case Exam<br>
Case &quot;LW&quot;<br>
objWord.Insert &quot;Lalita Wells&quot;<br>
Case &quot;CS&quot;<br>
objWord.Insert &quot;Cynthia Sebastian&quot;<br>
Case &quot;Bg&quot;<br>
objWord.Insert &quot;Brian Goble&quot;<br>
End Select<br>
objWord.InsertPara<br>
objWord.InsertPara<br>
objWord.Insert &quot;Re: Report due dates for&quot;<br>
objWord.InsertPara<br>
objWord.InsertPara<br>
objWord.Insert &quot;Date: &quot;<br>
objWord.Insert Today<br>
objWord.InsertPara<br>
objWord.InsertPara<br>
'objWord.Insert Line<br>
objWord.InsertPara<br>
objWord.InsertPara<br>
objWord.Insert &quot;The due dates are as follow:&quot;<br>
objWord.InsertPara<br>
objWord.InsertPara<br>
objWord.Insert &quot;Exam closed: &quot;<br>
objWord.Insert EndDate<br>
objWord.InsertPara<br>
objWord.InsertPara<br>
objWord.Insert &quot;Due to EIC: &quot;<br>
objWord.Insert ToEIC<br>
objWord.InsertPara<br>
objWord.InsertPara<br>
objWord.Insert &quot;Due to SE: &quot;<br>
objWord.Insert ToSE<br>
objWord.InsertPara<br>
objWord.InsertPara<br>
objWord.Insert &quot;Due to AA: &quot;<br>
objWord.Insert ToAA<br>
objWord.InsertPara<br>
objWord.InsertPara<br>
objWord.Insert &quot;Due to Deputy Comm.:&quot;<br>
objWord.Insert ToDC<br>
objWord.InsertPara<br>
objWord.InsertPara<br>
objWord.Insert &quot;Due to SDC: &quot;<br>
objWord.Insert ToSDC<br>
objWord.InsertPara<br>
objWord.InsertPara<br>
objWord.Insert &quot;Due to Company: &quot;<br>
objWord.Insert ToComp<br>
objWord.InsertPara<br>
objWord.InsertPara<br>
objWord.InsertPara<br>
objWord.InsertPara<br>
objWord.Insert &quot;Any questions, please see me.&quot;<br>
End Sub<br>
<p>Brian Famous<br><a href=mailto:bfamous@ncdoi.net>bfamous@ncdoi.net</a><br><a href= > </a><br>