Setting the date in a new document...

Cartoper · Guest

Yet again, the format of my weekly report has changed. It is a simple
Word document, one of the things I need to fill out though is the
"week ending", which is always the previous Friday.

I am going to create a template and use that as the foundation of my
weekly reports. I am assuming that with a bit of VBA code in the
template the week ending can be auto populated for me. The question
is: How do I do it? I have many years of C++ and .Net development
under my belt, but no experence in coding within Word.

Cartoper

Google · Sponsor

Graham Mayor · Guest

I am sure someone will come up with something simpler, but

Dim TestDate As String
Dim ReqDate As String
Dim i As Long
For i = 0 To 6
TestDate = Format(DateAdd("d", i, Now), "ddd")
If UCase(TestDate) = "FRI" Then
ReqDate = Format((DateAdd("d", i, Now) - 7), "d MMM yyyy")
MsgBox ReqDate
End If
Next

should do the trick. Basically I have incremented the current date by one at
a time until Friday. Then subtract 7 days to give the previous Friday stored
as ReqDate

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

Cartoper wrote:

macropod · Guest

To see how to do this and just about everything else you might want to do with dates in Word, using field coding instead of vba,
check out my Date Calc 'tutorial', at:
http://www.wopr.com/cgi-bin/w3t/showthreaded.pl?Number=249902
or
http://www.gmayor.com/downloads.htm#Third_party
In particular, look at the item titled 'Calculate a Stepped Date' and change the lines:
{SET Weekday 6}
and:
{SET jd{=INT((jd)/7)*7+Weekday}}
to:
{SET Weekday 4}
and
{SET jd{=INT((jd)/7-1)*7+Weekday}}

Cheers
--
macropod
[MVP - Microsoft Word]
-------------------------

"Cartoper" <cartoper@gmail.com> wrote in message news:b28f1aeb-70da-4cb5-ab97-7bf1256457b4@e10g2000prf.googlegroups.com...

Cartoper · Guest

On Dec 10, 8:33 pm, "macropod" <inva...@invalid.invalid> wrote:

macropod · Guest

Hi Cartoper,

As mentioned in my previous post, this is not vba - it's field coding.

If you:
.. copy and paste the example from the document you downloaded to your template
.. select the filed and press Alt-F9 to expose the coding
you can make the changes I suggested.

Since this is for a template, you'll need to change all occurrences of 'DATE' in the field to 'CREATEDATE'. When you're done, press
Alt-F9 again to toggle the filed code display back to the 'normal' view and press F9 to update the field. For now, the result will
show last Friday but, whenever you create & save a new document based on the template, it'll update to the most recent Friday and
will retain that date unless you later save the file using File|Save As..

Cheers
--
macropod
[MVP - Microsoft Word]
-------------------------