MS Word Header

[crayonshinchan]

MS word 2003
i wanted to print the check list
but we always need to manually key in the date on the header.
can vba help us to enter 1 week 7 days to print out same check list but the header with diff date?

Thkx

 

[fumei]

Can you explain in more detail?

WHAT "check list"? What has some "check list" have to do with a header?

"can vba help us to enter 1 week 7 days to print out same check list but the header with diff date?"

Probably yes, but you need to state more clearly what is going on.

"A little piece of heaven
without that awkward dying part."

advertisment for Reese's Peanut Butter Cups (a chocolate/peanut butter confection)

Gerry

 

[crayonshinchan]

Hi
Our date are store inside the Header.
We need manually to change the date.

Does VBA allow us to key in 1 week to print out
the documents with different date?

thk

 

[fumei]

Yes.

"A little piece of heaven
without that awkward dying part."

advertisment for Reese's Peanut Butter Cups (a chocolate/peanut butter confection)

Gerry

 

[macropod]

Hi crayonshinchan,

You are not being especially clear about what you're trying to do.

On the assumption that you want the user to be able to input a date into the macro then have the document printed with that date on the header then looped through and printed with the dates for the next week, you could try something like:

Sub Test()
Dim StrDate As String, i As Integer
StrDate = InputBox("What is the starting date?")
If IsDate(StrDate) Then
  StrDate = DateAdd("d", -1, StrDate)
  For i = 1 To 7
    ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text _
      = Format(DateAdd("d", 1, StrDate), "dddd, d MMMM yyyy")
    ActiveDocument.PrintOut
  Next
End If
End Sub

Cheers
[MS MVP - Word]

 

[crayonshinchan]

Hi

This is what i need,thank you so much for your help.
I only work as security guard,sorry for my poor technical knowledge.