En el artículo de hoy, le presentaremos 2 formas rápidas de insertar los días o el tiempo que quedan antes de una fecha límite en su documento de Word.
De vez en cuando, cuando esté trabajando en un proyecto importante, encontrará que debe tener en cuenta los días exactos o el tiempo que queda antes de la fecha límite para ajustar su ritmo de trabajo. Entonces será una gran idea insertar los días o el tiempo que quedan antes de la fecha límite en su documento de Word, para que puedan recordarle el último tiempo que queda.
En el siguiente texto, nos gustaría presentarle 2 métodos sobre cómo usar macros para calcular y obtener el valor.
Calcular los días que quedan antes de la fecha límite
- En primer lugar, coloque el cursor en la posición donde desea insertar el número.
- Luego, haga clic en la pestaña "Desarrollador".
- A continuación, haga clic en "Visual Basic" en el grupo "Código" para abrir el editor de VBA. Además, puede presionar "Alt + F11" en su lugar en caso de que la pestaña "Desarrollador" no esté disponible en su Word.
- Ahora haga clic en "Normal" y luego en "Insertar".
- A continuación, elija "Módulo".
- Haga doble clic en el nuevo módulo para abrir el área de edición en el lado derecho.
- Luego pegue los siguientes códigos allí:
Sub CountDownfromTodayToDeadlineDate()
Dim dtDeadlineDate As Date
Dim lDaysLeft As Long
' Input the deadline date to calculate the date difference.
dtDeadlineDate = InputBox("Enter the deadline date", "Deadline Date", "For example:2017/2/14")
lDaysLeft = DateDiff("d", Now, dtDeadlineDate)
' Output the date difference from today to the deadline date in word document.
Selection.Text = "There are " & lDaysLeft & " days left from today to " & dtDeadlineDate & vbCrLf
End Sub
- A continuación, haga clic en el botón "Ejecutar".
- Será recibido con un cuadro de diálogo, como el siguiente:
Ingrese la fecha límite en el cuadro de texto y haga clic en "Aceptar".
Para facilitar su uso en el futuro, puede hacer clic en "Macros" en la pestaña "Desarrollador" y elegir la macro correcta y luego hacer clic en "Ejecutar". Activará el cuadro de diálogo.
Calcular el tiempo restante antes de la fecha límite
A veces, además de que le queden días, es posible que también necesite saber cuánto tiempo le queda antes de una hora específica. Entonces, la macro siguiente es lo que necesitará.
- Repita los primeros 8 pasos anteriores. Solo tienes que reemplazar los códigos por lo siguiente:
Sub CountDownfromNowToDeadlineTime()
Dim dtTimeNow As Date
Dim dtDeadlineTime As Date
Dim lTimeLeft As Long
Dim lHour As Long
Dim lMinute As Long
Dim lSecond As Long
' Get the time now and the deadline time.
dtTimeNow = TimeValue(Now)
dtDeadlineTime = InputBox("Enter the deadline time","Deadline Time", "For example:18:00:00")
' Calculate the time difference.
lTimeLeft = DateDiff("s", dtTimeNow, dtDeadlineTime)
lHour = lTimeLeft \ 3600
lTimeLeft = lTimeLeft - lHour * 3600
lMinute = lTimeLeft \ 60
lSecond = lTimeLeft - lMinute * 60
Selection.Text = "There are " & lHour & " hours " & lMinute & " minutes " & lSecond & " seconds left from now to " & dtDeadlineTime & vbCrLf
End Sub
- Recuerde presionar el botón "Ejecutar".
- Esta vez, tendrá el cuadro de diálogo "Fecha límite". Ingrese la fecha límite y luego haga clic en "Aceptar".
Mantenga los archivos ilesos
Para mantener la integridad de los archivos y almacenarlos lejos de la corrupción, la mejor y más fácil forma es hacer copias de seguridad con frecuencia. Sin embargo, entendemos que es difícil seguir una rutina, razón por la cual hay tantos archivos dañados todos los días. Para reparar estos archivos problemáticos, necesitará un herramienta de reparación de Word corrupta.
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 errores xlsx y pdf reparar productos de software. Para más información visite www.datanumen.com