• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 900
  • Last Modified:

Sequential diary dates MS word

Could anyone give me simple instructions please ?

I want to print off a diary, a day to two pages, with sequential dates from todays date in the top corner.

Can I do this in MS word and if so how ?

Europa MacDonald
Europa MacDonald
  • 3
  • 2
1 Solution
Paul SauvéRetiredCommented:
You can insert the section number in the header of your document. Then write the month and year after the section number.

Then every second page, create a new section and the 'day' of the month will increment by 1.

I found the answer here: Legal Office Guru - Reader Question: Incrementing numbers in headers. Please watch the video...

Here is an example.
You would almost certainly need to use VBA to calculate the dates, so it is advisable that you are comfortable with VBA macros.
Here is a simple macro to do the job. You need to have a new blank document open and selected.
Sub MakeDiary()
    Dim d As Integer
    Dim dt As Date
    Dim strDate As String
    For d = 0 To 6
        dt = DateAdd("d", Now, d)
        strDate = Format(dt, "dd/MM/yyyy")
        ActiveDocument.Bookmarks("\EndOfDoc").Range.Text = strDate & vbCr & Chr(12) & strDate & vbCr & Chr(12)
    Next d
End Sub

Open in new window

If you aren't familiar with the VBA environment, there are basic instructions after the last block of code in this article:

There is a more detailed article here:
Hey Paul,
I'm surprised to see that I had the (then unanswered) question open for more than an hour while compiling my comment. I will look at your link with interest.
Paul SauvéRetiredCommented:
Hi Graham - quite often, it's the other way around! Have a good day!

I notice that you have posted a similar question for Excel.

Do you need any further help to do this in Word?
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

7 new features that'll make your work life better

It’s our mission to create a product that solves the huge challenges you face at work every day. In case you missed it, here are 7 delightful things we've added recently to monday to make it even more awesome.

  • 3
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now