Insert date and time in Word

What do you mean "... and named it DateDoneRight"?

 

It is already named DateLongStamp.

1.  Close down Word, then open Word

2. Open the VBE (Alt+F11)

3. Locate and select the project in the Project Explorer (Project pane).  The project  you select will be called "Project (Document 1).

4.  Expand that tree (click the little + sign on the left)

5.  Expand the Microsoft Word Object tree (click the little + sign on the left)

6. Dbl-Click "ThisDocument"
7. In the big empty code window on the right of the VBE, paste in:

Sub DateLongStamp()

 'Inserts current date

 Selection.InsertDateTime DateTimeFormat:="dddd, MMMM d, yyyy", InsertAsField:=False

End Sub

8.  Press the F8 key (three times to step through the code) or press F5 to run the code, or press "Run>Run Sub/Userform" on the VB Editor menu.

9.  Close the VBE and look at your document.

 

What is the result?

Mr Maxey,

I got the idea of DateDoneRight from your instructions to name it something:

 

"Select the new module and use the Properties Window "Name" property to give my new module a meaningful name (e.g., I often name my modules modMain)."

So I named it something.

 

To your latest instructions I did each step as instructed and got:

“Compile error invalid outside procedure”, again. 

I notice that another large white box opened that reads

"Normal – AutoCorrect Utility(Code) and inside that is the following:"

 

Option Explicit

 

frmAutoCorrect.Show

 

End Sub

The variation per country setting is certainly odd, but if the OP is not changing country, then Word ought to be using the format selected.

That is what I had to do.

The thing is that with the Long Date set at dddd, MMMM dd, yyyy in the Control Panel, with English (U.S.) selected in the Insert Date dialog, the result is dddd, MMMM dd, yyyy.  However if English (Aus) is selected in that dialog, the result is dddd, d MMMM yyyy.  Now one can anticipate the day coming before the month for Australian English, but where did the second d go to.  One would expect dddd, dd MMMM yyyy based on the Control Panel Long Date setting

What do you mean "... and named it DateDoneRight"?

It is already named DateLongStamp.

1.  Close down Word, then open Word

2. Open the VBE (Alt+F11)

3. Locate and select the project in the Project Explorer (Project pane).  The project  you select will be called "Project (Document 1).

4.  Expand that tree (click the little + sign on the left)

5.  Expand the Microsoft Word Object tree (click the little + sign on the left)

6. Dbl-Click "ThisDocument"
7. In the big empty code window on the right of the VBE, paste in:

Sub DateLongStamp()

 'Inserts current date

 Selection.InsertDateTime DateTimeFormat:="dddd, MMMM d, yyyy", InsertAsField:=False

End Sub

8.  Press the F8 key (three times to step through the code) or press F5 to run the code, or press "Run>Run Sub/Userform" on the VB Editor menu.

9.  Close the VBE and look at your document.

What is the result?

The "Project Explorer" is the "Project" pane in the VB Editor.

Press Alt+F11 to display the VB Editor.  If not displayed, display the Project Explorer pane by using the VB Editor "View" menu and select "Project Explorer."

It is is becoming clear to me that my instrutions for installing and employing a macro are not as clear or helpful as I had hoped they would be.  If you don't mind, and if you get it sorted out, please send me feedback as to what you think I should change to make it easier to understand.

 

• I locate and select the project in Project Explorer.
• Use the VBE "Insert" menu to insert a new standard module.
• Select the new module and use the Properties Window "Name" property to give my new module a meaningful name (e.g., I often name my modules modMain).
• Paste my procedure into the main code pane.

I then immediately step through the new procedure using F8 or run the procedure using the VBE toolbar or menu commands.

I did the above and named it DateDoneRight and then F8 and I get "Compile error invalid outside procedure"