- Código: Seleccionar todo
Sub Pegar_En_Word_Como_Texto()
On Error GoTo Soluc
Dim DocumentoWord As Object
Range("A1:B6").Copy
Set DocumentoWord = CreateObject("Word.Application")
DocumentoWord.Visible = True
DocumentoWord.Documents.Add
DocumentoWord.Selection.PasteSpecial DataType:=2
Set DocumentoWord = Nothing
Excel.Application.CutCopyMode = False
Range("A1").Select
Exit Sub
Soluc:
Set DocumentoWord = Nothing
End Sub
Acá en Excel se debe poner el valor de la cosntate usada en VBA de Word, en este caso es:
DataType:=2
Ese dos es el valor de la constante wdPasteText, pero como en Excel no se la puede usar (al menos no puede) me fui a VBA de Word y en la ventana de Inmediato me fijé en el valor que toma, era dos, y lo puse en la macro y todo listo.
