Inserting Date Information

[Mike]

I am trying to insert the date at a specified location on
the page.

I need to insert the date as text, as I am inserting this
date on a new page every day or so, therefore I can't use
fields.

 

[Anne Troy]

So, is there something wrong with Insert-Date?
You can record that macro.
**** Hope it helps! ****

~Dreamboat
Excel VBA Certification Coming Soon!
www.VBAExpress.com/training/
********************************

 

[Mike]

Yes. Try it. It doesn't allow you to put the curser at a
specific location, unless you use the keyboard.
I need to specify a point on the page. (ie. something like
specifying co-ordinates)

 

[Anne Troy]

Perhaps you need a textbox, which can be placed. I don't know that you can
"specify coordinates" that don't yet exist. In other words, without creating
paragraph returns to get to the middle of the page, I don't know how you
could "navigate" to that spot.
**** Hope it helps! ****

~Dreamboat
Excel VBA Certification Coming Soon!
www.VBAExpress.com/training/
********************************

 

[John Davidson]

Mike,
The code below will do what you want. You need to set up a bookmark
called "DateInsertPoint" and copy the code into an AutoNew macro for it
to work.

Selection.GoTo What:=wdGoToBookmark, Name:="DateInsertPoint"
Selection.Find.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.InsertDateTime DateTimeFormat:="dd MMMM YYYY",
InsertAsField:=False

John D.