Sub PasteUnformatted()
' Paul Beverley - Version 30.01.10
' Pastes unformatted

' Selection.PasteAndFormat (wdFormatPlainText)
Selection.PasteSpecial DataType:=wdPasteText
End Sub