Auto Populate on Open with the Users Name

[Lime]

Hello,
I Have a Word form. Combo box12 I would like to auto populate with the users
name when the file open
Any help??

Lime

 

[lumpy04]

Private Sub Document_Open()

'Populate the drop down lists'

DeviceTypes.List = Array(" ", "Desktop", "Laptop", "Printer", "Other")

End Sub

The Document _open is the place to list all the events you want to happen
when the document is opened. Not trying for sarcasm here..
You can past this code into your form, substitute "DeviceTypes.List" with
ComboBox12.List, and replace items like "Desktop" with your user's names.
:

 

[Lime]

I'm Sorry I meant Text Box. When the file is opened I would like the text box
to auto populate with the Users name (the person filling out the form)

 

[lumpy04]

ok, you might try the following:

Private Sub Document_Open()
textbox1.text = "%username%"
end sub

 

[Lime]

Hello,
Thanks for your input but all that will do is put %Username% in textbox1

Thanks,
Lime

 

[lumpy04]

Private Sub Document_Open()
Set objNet = CreateObject("WScript.NetWork")
user = objNet.UserName
TextBox1.Text = user
End Sub

I tested this and it works. For me anyway...Replace textbox1 with the name
of the test box you are manipulating...

here's the link I plagiarized:

http://www.codeproject.com/vbscript/userinfo.asp