Sub PasteVisio() On Error Resume Next Selection.PasteSpecial Placement:=wdInLine, _ DataType:=wdPasteShape, Link:=False, DisplayAsIcon:=False End Sub