Sub PasteMetafilePicture() On Error Resume Next Selection.PasteSpecial DataType:=wdPasteMetafilePicture End Sub