MAXIMIZAR VENTANA DE WORD
Publicado por ARTURO (5 intervenciones) el 27/01/2004 21:42:48
Este es el código que utilizo en mi aplicación para arrancar Word y despues abrir un documento:
Private Sub TELEGRAMADTE_Click()
Dim XWord As Object
Dim DocDeWord As Object
Dim UnArchivo As String
UnArchivo = \"C:\\Mis documentos\\MODELOS\\TELEGRAMA.doc\"
Set XWord = CreateObject(\"Word.Application\")
Set DocDeWord = XWord.Documents.Open(UnArchivo)
XWord.Visible = True
End Sub
El problema es que no abre a pantalla completa (maximizada) y cada vez hay que darle al botón maximizar.
¿Alguien me puede decir que código debo añadir para que abra Word maximizado?
Private Sub TELEGRAMADTE_Click()
Dim XWord As Object
Dim DocDeWord As Object
Dim UnArchivo As String
UnArchivo = \"C:\\Mis documentos\\MODELOS\\TELEGRAMA.doc\"
Set XWord = CreateObject(\"Word.Application\")
Set DocDeWord = XWord.Documents.Open(UnArchivo)
XWord.Visible = True
End Sub
El problema es que no abre a pantalla completa (maximizada) y cada vez hay que darle al botón maximizar.
¿Alguien me puede decir que código debo añadir para que abra Word maximizado?
Valora esta pregunta
0