Selection.CopyAsPicture (Word)
El método CopyAsPicture funciona del mismo modo que el método Copy.
Sub CopyPasteAsPicture()
ActiveDocument.Content.Select
With Selection
.CopyAsPicture
.Collapse Direction:=wdCollapseEnd
.PasteSpecial DataType:=wdPasteMetafilePicture
End With
End Sub