Sub PasteContentInPlainTextFormat() On Error Resume Next Selection.PasteSpecial datatype:=wdPasteText End Sub