Macro abrir archivo con formato de hojas pagina horizontal

[Visor]

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

 

[Visor]

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

Nuevamente lo siento ya lo he resuelto de un modo

Pueden cerrar el tema