Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Access » ¿Cómo saber si el Word está abierto?

Access - ¿Cómo saber si el Word está abierto?

Volver
Nuevo Tema
<<>>
 
Vista:

¿Cómo saber si el Word está abierto?

Publicado por Bernat (17 intervenciones) el 01/03/2001 17:05:51
Hola amigos, necesitaría saber una cosita. Miren, en código abro un documento de word (a partir de un objeto y toda la pesca) y no se cómo mirar si aún está abierto para cerrarlo. Si alguien me puede ayudar se lo agradeceré mucho. Gracias!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Alejandro

¿Cómo saber si el Word está abierto?

Publicado por Alejandro (4142 intervenciones) el 14/04/2023 18:55:41
Para verificar si un documento de Word está abierto, puedes usar la siguiente función en VBA de Access:

1
2
3
4
5
6
7
8
9
10
11
12
Function EstaWordAbierto(ByVal nombreDocumento As String) As Boolean
    Dim wd As Object
 
    On Error Resume Next
    Set wd = GetObject(, "Word.Application")
 
    If Err.Number <> 0 Then
        EstaWordAbierto = False
    Else
        EstaWordAbierto = wd.Visible And wd.ActiveDocument.Name = nombreDocumento
    End If
End Function

Esta función intenta obtener un objeto Word.Application, que solo será posible si Word está abierto. Si no hay ningún error, verifica si la aplicación de Word está visible y si el nombre del documento activo coincide con el nombre del documento que se pasa como argumento a la función.

Puedes utilizar la función de la siguiente manera:

1
2
3
4
5
If EstaWordAbierto("nombre_del_documento.docx") Then
    'Cerrar el documento
Else
    'No se encontró el documento abierto
End If
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar