Thank you very much for your feedback.

Rene


"macropod" wrote:

> Your code for pasting unformatted text could be made much simpler:
> Sub PasteUnformattedText()
> On Error Resume Next
> Selection.PasteSpecial DataType:=wdPasteText
> End Sub
>
> I would also suggest attaching this to a toolbar button instead of a
> keyboard shortcut - I believe most users would find that easier to use, even
> if it's not as quick for those of us who can remember keyboard shortcuts.
>
> As for distributing the code, there's all sorts of ways, depending on
> whether you want to do it from a text file or copy from a vba module in one
> file to another, and whether you want to add the code to an existing module
> or create a new module for it.
>
> Cheers
>
>
> "Rene Petersen" <[email protected]> wrote in message
> news:[email protected]...
> > I do appreciate your concern about writing into someone else's 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
> > >
>
>
>