Capture User information

[newbby]

Hello,
Is there a way to capture the user information as found under Ms Word--tools--options--user information. I would then like to use this information elsewhere. Thanks

 

[fumei]

You can capture it with VBA.

Sub userinfo()
Dim userinfo As String
userinfo = Application.UserInitials & "  " & vbCrLf & _
    Appplication.UserName & vbCrLf & _
    Application.UserAddress
MsgBox userinfo
End Sub

returns a message boc with the initials, a line break, the UserName, then a line break, then the address.

Ovbiously you can arrange this however you like, or pass separate elements into different variables, and - well - do what you like with it.

NOTE however, that the username here is what is in fact in Tools > Options > User Information, and as such can be altered easily by anyone.

If you want to get the actual logon name being used on a specific machine user Environs("UserName").

Gerry