Sub Macro1()
'
' Macro1 Macro
'
'
    Selection.PasteSpecial Link:=False, DataType:=wdPasteOLEObject, Placement _
        :=wdInLine, DisplayAsIcon:=False
End Sub