Sub PasteUnformattedText() ' The next line is in case there's nothing in the Clipboard On Error Resume Next Selection.PasteSpecial DataType:=wdPasteText End Sub