Dans l'article d'aujourd'hui, nous allons vous présenter 2 façons rapides d'insérer les jours ou le temps restant avant une échéance dans votre document Word.
De temps en temps, lorsque vous travaillez sur un projet important, vous constaterez que vous devez garder à l'esprit les jours ou le temps exacts restants avant la date limite afin d'ajuster votre rythme de travail. Ensuite, ce sera une bonne idée d'insérer les jours ou le temps restant avant la date limite dans votre document Word, afin qu'ils puissent vous rappeler le dernier temps restant.
Dans le texte suivant, nous aimerions vous présenter 2 méthodes d'utilisation des macros pour calculer et obtenir la valeur.
Calculer les jours restants avant la date limite
- Avant toute chose, placez votre curseur à l'endroit où vous souhaitez insérer le nombre.
- Ensuite, cliquez sur l'onglet "Développeur".
- Cliquez ensuite sur "Visual Basic" dans le groupe "Code" pour ouvrir l'éditeur VBA. En outre, vous pouvez appuyer sur "Alt + F11" à la place au cas où l'onglet "Développeur" n'est pas disponible dans votre Word.
- Cliquez maintenant sur "Normal" puis sur "Insérer".
- Ensuite, choisissez "Module".
- Double-cliquez sur le nouveau module pour ouvrir la zone d'édition sur le côté droit.
- Collez-y ensuite les codes suivants :
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
- Ensuite, cliquez sur le bouton "Exécuter".
- Vous serez accueilli par une boîte de dialogue, comme ci-dessous :
Entrez la date limite dans la zone de texte et cliquez sur "OK".
Pour une utilisation facile à l'avenir, vous pouvez cliquer sur "Macros" sous l'onglet "Développeur" et choisir la bonne macro, puis cliquer sur "Exécuter". Il doit déclencher la boîte de dialogue.
Calculer le temps restant avant la date limite
Parfois, en plus d'avoir des jours restants, vous pouvez également avoir besoin de savoir combien de temps il vous reste avant une heure précise. Ensuite, la macro ci-dessous est ce dont vous aurez besoin.
- Répétez les 8 premières étapes ci-dessus. Vous n'avez qu'à remplacer les codes par les suivants :
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
- N'oubliez pas d'appuyer sur le bouton "Exécuter".
- Cette fois, vous aurez la boîte de dialogue "Heure limite". Entrez l'heure limite puis cliquez sur "OK".
Gardez les fichiers intacts
Pour conserver l'intégrité des fichiers et les stocker à l'abri de la corruption, le moyen le meilleur et le plus simple consiste à effectuer souvent des sauvegardes. Cependant, nous comprenons qu'il est difficile de s'en tenir à une routine, c'est pourquoi il y a tant de fichiers cassés chaque jour. Pour réparer ces fichiers problématiques, vous aurez besoin d'un outil de réparation Word corrompu.
Introduction de l'auteur:
Vera Chen est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris outil de réparation d'erreur xlsx et pdf réparer les produits logiciels. Pour plus d'informations, visitez www.datanumen.com