Headers are properties of Sections. There are three possible Headers per Section:
Primary = the header for ALL pages, unless the following are set to True; in which case Primary becomes the header for odd pages.
First Page = a different header for the first page of the section.
EvenPages = header for the even pages.
As you can see, if you want a
different header for EACH page of a 48 page document, you must make separate sections for each page. Until you do that you can NOT have different headers for all 48 pages.
1. You may want to consider a separate text area for each page. Unfortunately, as Word paginates dynamically, this could easily move that text area on to the wrong page. Not a good solution.
2. Make separate sections for each page. This also has problems. Depending on how much text may come in and out, editing may adjust pagination and again set things off.
That being said, you simply insert a date, as a Date data type and increment it by 1. Look up date in Help, also look up Format for ways to display dates. Here is a little snippet that displays incremented dates (six days added to the original which I arbitrarily made Feb 4) in a messagebox. Good luck!
Code:
Sub IncrementDate()
Dim StartDate As Date
Dim i As Integer
Dim var
Dim msg As String
StartDate = "February 4, 2005"
i = 1
msg = Format(StartDate, "long date")
For var = 1 To 6
msg = msg & vbCrLf & _
Format(StartDate + i, "long date")
i = i + 1
Next
MsgBox msg
End Sub
Gerry