NT user names in VBA 3

[Waiman]

Is it possible to find out what NT user name is currently editing a word doc? I need this for version control and approval cycle reasons.

So far I think it can't be done unless you use a custom com object.

Can anyone shed some light on this?
Any help appreciated.

 

[nickjar2]

I got this code from the help. It may be of some use:

Dim EnvString, Indx, Msg, PathLen ' Declare variables.
Indx = 1 ' Initialize index to 1.
Do
EnvString = Environ(Indx) ' Get environment
' variable.
If Left(EnvString, 5) = "PATH=" Then ' Check PATH entry.
PathLen = Len(Environ("PATH&quot) ' Get length.
Msg = "PATH entry = " & Indx & " and length = " & PathLen
Exit Do
Else
Indx = Indx + 1 ' Not PATH entry,
End If ' so increment.
Loop Until EnvString = ""
If PathLen > 0 Then
MsgBox Msg ' Display message.
Else
MsgBox "No PATH environment variable exists."
End If

Nick

 

[JoaoTL]

Hi, in this link is an API to see who is working with the word document.

http://www.mvps.org/access/modules/mdl0038.htm

Best Regards

---
JoaoTL
NOSPAM_mail@jtl.co.pt

http://www.jtl.co.pt

http://www.jtl.co.pt/Access

 

[Databaseguy]

JoaoTL, that's pretty cool.... Tyrone Lumley
augerinn@gte.net

http://server47.hypermart.net/databaseguy

 

[neilkonitzer]

BETTER YET!!!

Dim strUserName as String
strUserName = Environ$("USERNAME&quot

This returns the user name. Neil Konitzer, President
Freisoft

http://www.freisoft.com