Insert Typist's Initials

[Debra Ann]

I'm trying to create a macro toolbar button in Microsoft Word (XP) that will
insert the initials or name or the person pushing the button at the cursor
location. What is the code for this?

Thanks,

 

[Greg Maxey]

Sub Scratchmacro()
Selection.TypeText Application.UserInitials
End Sub

 

[Klaus Linke]

I'm trying to create a macro toolbar button in Microsoft Word (XP) that
will
insert the initials or name or the person pushing the button at the cursor
location. What is the code for this?

.... or insert a {USERINITIALS} field or {DOCPROPERTY Author} field: No
typing necessary?
Though the field(s) would have to be unlinked or locked if the text is to be
preserved.

Regards,
Klaus

 

[Debra Ann]

Thanks. This is what I needed.
--
Debra Ann

Sub Scratchmacro()
Selection.TypeText Application.UserInitials
End Sub

--
Greg Maxey/Word MVP
See:
http://gregmaxey.mvps.org/word_tips.htm
For some helpful tips using Word.