Hi Mark,
like this:
Sub autoopen()
Open "c:\test\log.txt" For Append As #1
Print #1, ActiveDocument.FullName; _
Chr(9); Date; Chr(9); Time; Chr(9); Environ$("Username")
Close #1
End Sub

Signature
Greetings from Bavaria, Germany
Helmut Weber, MVP WordVBA
Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"
Mark - 26 Nov 2006 17:16 GMT
Brilliant, many thanks

Signature
Mark
> Hi Mark,
>
[quoted text clipped - 6 lines]
> Close #1
> End Sub