Saltar al contenido

Pegar rango de Excel a archivo Word abierto.

publicado

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

publicado
  • Autor

Gracias por el interés de los visitantes a este tema

Lo siento ya lo he resuelto de un modo

Pueden cerrar el tema

 

  • Silvia bloqueó este tema

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.