En este artículo, nos gustaría presentarle 3 tipos diferentes de recordatorios en Word que puede crear a través de VBA.
Dado que algunos de nosotros tenemos que lidiar con una gran cantidad de archivos en Word a diario, es probable que nos mareemos con qué hacer y dejemos algunos trabajos sin hacer a veces. En ese caso, un recordatorio será útil. Por lo tanto, le presentamos 3 tipos de recordatorios útiles que puede utilizar para realizar un seguimiento de lo que debe hacer.
El primer tipo: el recordatorio diario
Por ejemplo, si prefieres planificar el día de mañana al final del día, necesitarás un recordatorio diario. En el editor VBA de Word, puedes añadir una macro llamada "AutoExec". De esta forma, cada vez que abras Word, la macro se ejecutará automáticamente y mostrará un cuadro de mensaje con todas las tareas pendientes del día.
- En primer lugar, abra Word y presione "Alt + F11" para abrir el editor de VBA.
- Luego haga clic en "Normal".
- A continuación, haga clic en "Insertar".
- Y elija "Módulo" en el menú para insertar uno nuevo en el proyecto "Normal".
- Ahora haga doble clic en el módulo para ingresar al área de edición y pegue los siguientes códigos allí:
Sub AutoExec()
Dim dtDate As Date
dtDate = #2/20/2017#
If Date = dtDate Then
MsgBox "Tasks to be done today:" & vbCr & "1: Send fileXX to John Smith " & vbCr & "2: Finish file YY"
End If
End Sub
- A continuación, haga clic en "Guardar normal" para guardar el cambio.
Como resultado, cada vez que abra Word, habrá un cuadro de mensaje con una lista de todas las tareas que debe completar. Al hacer clic en "Aceptar", puede abrir y continuar editando en un documento específico.
Notas:
- En la línea de código "dtDate = # 2/20/2017 #”, La fecha es el día en el que hay que realizar todas las acciones. Recuerde cambiar en consecuencia.
- En la línea de código "MsgBox "Tareas pendientes hoy:" & vbCr & "1: Enviar archivoXX a John Smith" & vbCr & "2: Finalizar archivo YY"”, Todo el contenido entre comillas es la lista de tareas que debe seguir. Reemplácelo con sus propias misiones concretas. Debe poner cada elemento de la lista entre comillas y unirlo al anterior con "& vbCr &”(Sin comillas).
El segundo tipo: recordatorios para tareas recurrentes
El recordatorio semanal
Aquí viene el recordatorio semanal, notificando las cosas que tiene que hacer el mismo día todas las semanas.
- En primer lugar, repita los primeros 4 pasos anteriores.
- Solo que esta vez, pegas la siguiente macro:
Sub AutoExec()
Dim dtWeekDay As Date
dtWeekDay = vbMonday
If dtWeekDay = Weekday(Date) Then
MsgBox "Back up today of each week."
End If
End Sub
- Del mismo modo, haga clic en el botón "Guardar normal" por último.
Asimismo, habrá un cuadro de mensaje. Haga clic en "Aceptar" para seguir escribiendo en Word.
Notas:
En la línea de código "dtDíaSemana = vbLunes", tu puedes cambiar "vblunes" a "vbmartes,vb miércoles,vbjueves,vbViernes,vb sábado", O"domingo" respectivamente.
El recordatorio mensual
De la misma manera, existe el recordatorio mensual, que le recuerda la tarea mensual.
- Sigue dando los primeros 4 pasos en "El primer tipo: el recordatorio diario".
- Luego pega los códigos allí:
Sub AutoExec()
Dim dtDay As Date
dtDay = 20
If dtDay = Day(Date) Then
MsgBox "Back up today of each month."
End If
End Sub
- Por último, pero no menos importante, haga clic en "Guardar normal".
Del mismo modo, aparecerá un cuadro de mensaje cada vez que abra Word.
Nota:
En la línea de código "dtDía = 20”, El número es la fecha en la que necesita cumplir con la tarea mensual. Recuerde modificarlo antes de ejecutar la macro.
El tercer tipo: recordatorios de la diferencia de fecha o hora
Dado que casi todo tiene fecha límite, es necesario tener en cuenta los días o el tiempo exacto que falta. Por lo tanto, las siguientes dos macros calculan automáticamente la diferencia entre la fecha y hora actuales y la fecha y hora límite. El resultado se muestra en un cuadro de mensaje al abrir Word.
Los pasos para ejecutar y guardar la macro son los mismos que los anteriores.
Aquí está la macro para obtener la diferencia de días:
Sub Autoexec()
Dim dtDeadlineDay As Date
Dim nDaysLeft As Long
'Specify the deadline date and calculate the days left.
dtDeadlineDay = #2/20/2017#
nDaysLeft = DateDiff("d", Now, dtDeadlineDay)
' Show the days left before deadline.
If nDaysLeft > 1 Then
MsgBox "There are " & nDaysLeft & " days left before " & dtDeadlineDay & "."
ElseIf nDaysLeft = 1 Then
MsgBox "There is 1 day left before " & dtDeadlineDay & "."
ElseIf nDaysLeft = 0 Then
MsgBox "Today is the deadline!"
End If
End Sub
Y el resultado es:
Nota:
Recuerde modificar la línea de código "dtDeadlineDay = # 2/20/2017 #”. Simplemente cambie la fecha según lo necesite.
Luego, la siguiente es la macro para obtener la diferencia horaria:
Sub Autoexec()
Dim dtCurrentTime As Date
Dim dtDeadlineTime As Date
Dim nTimeLeft As Long, nHour As Long, nMinute As Long, nSecond As Long
' Specify the current time and the deadline time.
dtCurrentTime = TimeValue(Now)
dtDeadlineTime = TimeValue("16:40:00 PM")
' Calculate and show the time difference.
nTimeLeft = DateDiff("s", dtCurrentTime, dtDeadlineTime)
nHour = nTimeLeft \ 3600
nTimeLeft = nTimeLeft - nHour * 3600
nMinute = nTimeLeft \ 60
nSecond = nTimeLeft - nMinute * 60
MsgBox "There are " & nHour & " hours " & nMinute & " minutes " & nSecond & " seconds left before " & dtDeadlineTime & "."
End Sub
Y el resultado es:
Nota:
Reemplace la hora en "dtDeadlineTime = TimeValue ("16:40:00 PM")”Con uno significativo.
Una copia de seguridad que vale la pena
Nunca subestimaremos la importancia y lo que puede hacer después de que el archivo se corrompe. Además, se nos aconseja que elaboremos un plan de respaldo al menos diaria, semanal o mensual. La copia de seguridad es la preparación exacta que debemos hacer para evitar que nuestros datos se dañen. De lo contrario, el último esfuerzo que podemos ahorrar es obtener una herramienta de recuperación de datos de Word corruptos.
Introducción del autor:
Vera Chen es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo herramienta de reparación de Excel xls dañada y pdf reparar productos de software. Para más información visite www.datanumen.com