I do appreciate your concern about writing into someone elses normal.dot,
and can ensure you that I would not send it to someone who do not wish to
have the shortcut ALT+V to paste unformatted text. I could even make it so
that in the word document I send the users it would be explained and they
would require to press ALT+V to start the macro instead of making it
document_open() like suggested earlier. Then ALT+V would simply kick of the
macro (which I do not know how to write yet) and after that ALT+V would be
their new key binding for pasting unformatted text, which I know so many
users would appreciate.

As I tried to express earlier I already know how to deal with global
template and using a global template would entirely overwrite their
normal.dot and then I do think it would be a lot more appreciated by the
users if I only added a small code rather than overwriting the lot.

To let the users manipulate their own normal.dot code is not an option, some
of the users are not that computer literate, in fact some do not even know
how to record a macro, so messing about with VB is out of the question.

I am honestly not trying to be rude, but merely save some time, so if you
can not answer the question on whether it is possible to create a macro that
can write another macro and tell me how to do it and write it to normal.dot,
or if someone can tell me it is impossible then please do not reply, it only
waste yours and my time.

Thank you,
Rene


"Rene Petersen" wrote:

This great code (code1) is found in here to paste unformatted text, I have
used this and assigned it to a shortcut key using code 2.

Now I would very much like to share this with my collegues and I therefore
need to know how I use a third macro to add the first macro (code 1) to my
collegues normal.dot and run code two to assign key.

I will send them the code using a document with the macro.

'Code 1
Sub PasteUnfText()
On Error GoTo Oops

Selection.PasteSpecial DataType:=wdPasteText, Placement:= _
wdInLine
End
Oops:
Beep
End Sub

'Code 2
Sub AssignKey()

CustomizationContext = NormalTemplate
KeyBindings.Add KeyCategory:=wdKeyCategoryCommand, _
Command:="PasteUnfText", _
KeyCode:=BuildKeyCode(wdKeyAlt, wdKeyV)

End Sub