Hola! anoche estuve revisando, tuve que hacer unos pequeños ajustes en la direccion de la carpeta (en vez de poner la direccion en partes la coloque toda de corrido parecida a como estaba antes) y logramos (vos y yo) que funcione!. Tambien tuve que desactivar la linea de código que bloqueaba la hoja porque sino no estaba dejando que la macro escriba el codigo de la propiedad en la celda, pero eso es lo de menos, supongo que lo puedo solucionar poniendo el bloqueo al final de la macro que creaste o desprotegiendo la celda donde se pone el codigo de propiedad.
Así que doy por supuesto que eso lo voy a poder hacer funcionar por lo que entonces voy a marcar como que ya está solucionado lo que necesitaba.
Agradezco muchisimo tu ayuda porque era sumamente tedioso tener que estar haciendo los recibos de a uno ya que la macro de envio de recibos es medio lenta. Ahora no me importa si tarda mucho, apretaré el boton y le daré todo el tiempo que se quiera tomar mientras yo hago otra cosa.
Gracias nuevamente!!!!
Por
Corvette, · publicado
Buenas:
Estoy intentando programar para que se copie automáticamente una tabla de excel en un documento word determinado, pero tengo dos problemas:
1. Me gustaría que se copiara en un lugar determinado del doc word, no al principio.
2. Se pega como Imagen (Metarchivo mejorado) que es lo quiero pero lo hace en un tamaño pequeño, no llena todo el ancho (que es lo que me interesa).
Sub Excel_aWord()
'Copia el rango de Excel seleccionado en un nuevo documento Word
Range("b4", "y30").Select
'copiar rango selecionado
Selection.Copy
'Crea nueva aplicación Word
Dim swMSWord As Word.Application
Dim wDoc As Word.Document
Set swMSWord = New Word.Application
With swMSWord
.Visible = True
.Activate
End With
'Abre documento Word
swMSWord.Documents.Open ("C:\documento.docx")
'Pegado de las celdas Excel
swMSWord.Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile
'Libera el objeto Word
Set swMSWord = Nothing
End Sub