La siguiente macro abre un archivo Word con formato de hoja en pagina vertical
Private Sub CommandButton1_Click()
Archivo = ThisWorkbook.Path & "\Microbiologia I.docx"
With GetObject(Archivo)
.Application.Visible = True
.Application.Activate
End With
End Sub
Me gustaría que me puedan colaborar con lo que falta para hacer que abra con las hojas en formato de pagina Horizontal
Para probarlo por favor cambiar el nombre de este archivo word con uno que tengas junto a un excel y que al inicio haya estado de manera vertical para que la macro se encargue de hacer que se haga horizontal
Agradezco anticipadamente su apoyo
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Saludos amigos del foro,
La siguiente macro abre un archivo Word con formato de hoja en pagina vertical
Private Sub CommandButton1_Click() Archivo = ThisWorkbook.Path & "\Microbiologia I.docx" With GetObject(Archivo) .Application.Visible = True .Application.Activate End With End Sub
Me gustaría que me puedan colaborar con lo que falta para hacer que abra con las hojas en formato de pagina Horizontal
Para probarlo por favor cambiar el nombre de este archivo word con uno que tengas junto a un excel y que al inicio haya estado de manera vertical para que la macro se encargue de hacer que se haga horizontal
Agradezco anticipadamente su apoyo