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

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

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