Creating a macro to update dates in a word doc

[77Debbie77]

I am wondering if there is a way to create a macro that will chance the "Week
Ending" date and dates of the week when I open the document every Friday to
update the attendance. Thank you for your assistance.

DEPARTMENT: WEEK ENDING 10/12/07


10/08 10/09 10/10 10/11 10/12
10/13 10/14
EMPLOYEE EMP # MON TUES WED THURS FRI SAT SUN

 

[Dave D-C]

Something along the lines of (in ThisDocument):

Option Explicit

Private Sub Document_Open()
Dim zToday As Date, i%
zToday = Date
'[at this point you could make sure today is Friday]
Selection.TypeText "DEPARTMENT: WEEK ENDING " & Format(zToday,
"mm/dd/yy") & vbNewLine
Selection.TypeText "EMPLOYEE EMP #" & vbTab & "MON" & vbTab &
"etc." & vbNewLine
Selection.TypeText vbTab & vbTab
For i = -4 To 2
Selection.TypeText vbTab & Format(zToday + i, "mm/dd")
Next i
Selection.TypeText vbNewLine
End Sub