Visual Basic para Aplicaciones - Macro para guardar documento Word cada x tiempo

Life is soft - evento anual de software empresarial
   
Vista:

Macro para guardar documento Word cada x tiempo

Publicado por César (3 intervenciones) el 22/06/2017 10:51:54
Hola,
Estoy buscando la manera de crear una macro para que se realice el autoguardado del documento Word en el que se trabaja cada 5 minutos, pero no encuentro la manera.
Muchas gracias por adelantado, y felicitaciones al foro, es de gran utilidad.
Saludos!
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 Antoni Masana

Macro para guardar documento Word cada x tiempo

Publicado por Antoni Masana (186 intervenciones) el 26/06/2017 08:07:38
Esta Macro es para Excel. Muestra la hora:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Option Explicit
 
Sub Tiempo()
    ' --- Mediante esta instruccion "llamamos" a "Actualizarreloj" para volver a _
             actualzizar el Label con la hora
 
    Application.OnTime Now + TimeValue("00:00:01"), _
                Procedure:="Actualizarreloj", _
                Schedule:=True
End Sub
 
Sub Actualizarreloj()
    ' --- Coloca la hora en el Label del UserForm
    [A1] = Time
    ' --- "Llama a la rutina que cada 01 segundo "llama" a "Actualizarreloj" _
           para volver a actualzizar el Label con la hora
    Call Tiempo
End Sub
 
Sub Detener_reloj()
    ' --- Detiene el "OnTime"
 
    Application.OnTime Now + TimeValue("00:00:01"), _
                Procedure:="Actualizarreloj", _
                Schedule:=False
 
    ' --- Application.OnTime EarliestTime:=Now + TimeValue("00:00:01"), _
                      Procedure:="Actualizarreloj", _
                      Schedule:=False
End Sub

En la línea 14 debes cambiarla por la instrucción de salvar y en las líneas 7 y 23 en lugar de 00:00:01 que es para que se ejecute cada segundo lo cambias por 00:05:00 para que se ejecute cada 5 minutos.

No lo he probado en Word pero debería funcionar.

Un consejo: Cambia solo la línea 14 por un MsgBox "Guardar" para probar si funciona y si tienes éxito sigue con lo demás.

Saludos.
\\//_
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

Macro para guardar documento Word cada x tiempo

Publicado por César (3 intervenciones) el 26/06/2017 11:39:41
Hola,
Muchas gracias por tu aporte. A mi me da un error en la linea 8.
Tendré en cuenta esta idea a ver si consigo que funcione.
Saludos!
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
Imágen de perfil de Antoni Masana

Macro para guardar documento Word cada x tiempo

Publicado por Antoni Masana (186 intervenciones) el 27/06/2017 09:46:37
Esta es la versión para Word.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Explicit
 
Sub Reloj_Start()
    Application.OnTime When:=Now + TimeValue("00:05:00"), Name:="Salvar_Documento"
End Sub
 
Sub Reloj_Stop()
    Application.OnTime When:=Now + TimeValue("00:00:01"), Name:="Reloj_End"
End Sub
 
Sub Reloj_End()
    ' --- 
End Sub
 
Sub Salvar_Documento()
    ActiveDocument.Save
    Call Reloj_Start
End Sub

Saludos.
\\//_
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

Macro para guardar documento Word cada x tiempo

Publicado por César (3 intervenciones) el 27/06/2017 10:44:09
Hola!
Excelente!!
Funciona perfectamente!
Muchísimas gracias!
Saludos!
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
Revisar política de publicidad