** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Word
  Mensajes nuevos Mensajes nuevos RSS - Maximizar pantalla
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoMaximizar pantalla

 Responder Responder
Autor
Mensaje
edv Ver desplegable
Habitual
Habitual


Unido: 03/Diciembre/2013
Localización: madrid
Estado: Sin conexión
Puntos: 113
Enlace directo a este mensaje Tema: Maximizar pantalla
    Enviado: 12/Julio/2018 a las 09:18


Hola, a ver si alguien puede echarme un cable.

Estoy en Access y cargo un fichero de Word, una vez activado, éste no se maximiza ni aparece en primer plano. Hay algún código para conseguir ese resultado.



Un saludo
Arriba
prga Ver desplegable
Moderador
Moderador


Unido: 16/Noviembre/2004
Localización: España
Estado: Sin conexión
Puntos: 3055
Enlace directo a este mensaje Enviado: 12/Julio/2018 a las 11:24
Hola.
¿Cómo se carga el fichero de word desde el access?
¿Qué versión de office se utiliza?
Ya comentas.
Un saludo a todos
Arriba
edv Ver desplegable
Habitual
Habitual


Unido: 03/Diciembre/2013
Localización: madrid
Estado: Sin conexión
Puntos: 113
Enlace directo a este mensaje Enviado: 12/Julio/2018 a las 12:59


Hola,

Versión Office 2013


Este es el código que tengo...funciona a medias, algo estaré haciendo mal que no lo trae al frente

    If ExisteArchivo(sDocArchivo) Then
        Set MyWord = CreateObject("Word.Application")
        Set MyDoc = MyWord.Documents.Open(sDocArchivo)
        MyWord.Visible = True
    End If



Un saludo
Arriba
prga Ver desplegable
Moderador
Moderador


Unido: 16/Noviembre/2004
Localización: España
Estado: Sin conexión
Puntos: 3055
Enlace directo a este mensaje Enviado: 12/Julio/2018 a las 13:06
Hola.
Prueba añadiendo estas 2 líneas de código:

myword.Application.Activate
myword.Application.WindowState = 1 ' wdWindowStateMaximize

Ya comentas.
Un saludo a todos
Arriba
edv Ver desplegable
Habitual
Habitual


Unido: 03/Diciembre/2013
Localización: madrid
Estado: Sin conexión
Puntos: 113
Enlace directo a este mensaje Enviado: 13/Julio/2018 a las 09:28

Hola buenos días,

He añadido las dos líneas de código y a lo máximo que he podido llegar es a que parpadea..., dando a entender que se posiciona en él, pero no lo maximiza.

If ExisteArchivo(sDocArchivo) Then
Set MyWord = CreateObject("Word.Application")
Set MyDoc = MyWord.Documents.Open(sDocArchivo)
MyWord.Visible = True
myword.Application.Activate
myword.Application.WindowState = 1 ' wdWindowStateMaximize
End If




Un saludo
Arriba
edv Ver desplegable
Habitual
Habitual


Unido: 03/Diciembre/2013
Localización: madrid
Estado: Sin conexión
Puntos: 113
Enlace directo a este mensaje Enviado: 13/Julio/2018 a las 12:34

El código está correcto, ya que a veces lo máximiza y eso significado que lo está haciendo bien.


Muchas gracias por todo y cierro el hilo
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable