Sub PasteUnfText()
On Error GoTo oops
Selection.PasteSpecial _
DataType:=wdPasteText, _
Placement:=wdInLine
End
oops:
Beep
End Sub
See http://www.gmayor.com/installing_macro.htm

Signature
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP
My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
> Can the "paste--paste special--unformatted paste" operation be
> excuted only by a single shortcut key combination? Any macro or other
> programe for this?
HSBCwilliam - 18 Feb 2008 03:16 GMT
Omg, what can I say, it works perfectly, u really deserve the Word MVP title.
> Sub PasteUnfText()
> On Error GoTo oops
[quoted text clipped - 11 lines]
> > excuted only by a single shortcut key combination? Any macro or other
> > programe for this?