Put the following procedure in the ThisDocument module of the document project:

Sub Document_Open()
ActiveDocument.Range.InsertAfter vbCr & Application.UserName & " - " & Format(Now, "MMMM dd, yyyy")
End Sub

See: http://gregmaxey.com/word_tip_pages/...ng_macros.html for instructions to employ the VBA code provided above.

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/