Saludos amigos del foro,este código pega un rango de excel en Mi archivo Word que esta cerrado, luego lo abre y lo muestra. Alli verifico que ha pegado bien.
Private Sub CommandButton1_Click()
Hoja8.Range("A1:H32").Select
Selection.CopyPicture xlScreen, xlPicture
Archivo = ThisWorkbook.Path & "\Microbiologia I.docx"
With CreateObject("word.application")
Selection.CopyPicture xlScreen, xlPicture
.Documents.Open Archivo
.Selection.Paste
.ActiveDocument.SaveAs (Archivo)
.Visible = True
.Activate
End With
End Sub
Pero que tal si al querer pegar el archivo mencionado ya esta abierto???
El codigo mostrado genera error aquí:
.Documents.Open Archivo
Debido a que procura abrir un archivo que ya está abierto.
Cómo hago para pegar en mi archivo que ya abierto?
Les anticipo mis agradecimientos
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Saludos amigos del foro,este código pega un rango de excel en Mi archivo Word que esta cerrado, luego lo abre y lo muestra. Alli verifico que ha pegado bien.
Private Sub CommandButton1_Click() Hoja8.Range("A1:H32").Select Selection.CopyPicture xlScreen, xlPicture Archivo = ThisWorkbook.Path & "\Microbiologia I.docx" With CreateObject("word.application") Selection.CopyPicture xlScreen, xlPicture .Documents.Open Archivo .Selection.Paste .ActiveDocument.SaveAs (Archivo) .Visible = True .Activate End With End Sub
Pero que tal si al querer pegar el archivo mencionado ya esta abierto???
El codigo mostrado genera error aquí:
.Documents.Open Archivo
Debido a que procura abrir un archivo que ya está abierto.
Cómo hago para pegar en mi archivo que ya abierto?
Les anticipo mis agradecimientos