In het artikel van vandaag zullen we u 2 snelle manieren presenteren om de resterende dagen of tijd vóór een deadline in uw Word-document in te voegen.
Af en toe, wanneer u aan een belangrijk project werkt, zult u merken dat u de exacte dagen of tijd die overblijft vóór de deadline in gedachten moet houden om uw werktempo aan te passen. Dan is het een goed idee om de dagen of tijd die nog resteren voor de deadline in je Word-document in te voegen, zodat ze je kunnen herinneren aan de laatste resterende tijd.
In de volgende tekst willen we u twee methoden introduceren om macro's te gebruiken om de waarde te berekenen en te verkrijgen.
Bereken de resterende dagen vóór de deadline
- Plaats allereerst uw cursor op de plek waar u het getal wilt invoegen.
- Klik vervolgens op het tabblad "Ontwikkelaar".
- Klik vervolgens op "Visual Basic" in de groep "Code" om de VBA-editor te openen. U kunt ook in plaats daarvan op "Alt + F11" drukken voor het geval dat het tabblad "Ontwikkelaar" niet beschikbaar is in uw Word.
- Klik nu op "Normaal" en vervolgens op "Invoegen".
- Kies vervolgens "Module".
- Dubbelklik op de nieuwe module om het bewerkingsgebied aan de rechterkant te openen.
- Plak daar dan de volgende codes:
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
- Klik vervolgens op de knop "Uitvoeren".
- U wordt begroet met een dialoogvenster, zoals hieronder:
Voer de deadline in het tekstvak in en klik op "OK".
Voor eenvoudig gebruik in de toekomst kunt u op "Macro's" klikken onder het tabblad "Ontwikkelaar" en de juiste macro kiezen en vervolgens op "Uitvoeren" klikken. Het zal het dialoogvenster activeren.
Bereken de resterende tijd vóór de deadline
Soms moet u behalve dat u nog dagen over heeft, ook weten hoeveel tijd u nog over heeft vóór een bepaald tijdstip. Dan is de brullende macro wat je nodig hebt.
- Herhaal de eerste 8 bovenstaande stappen. Alleen u hoeft de codes te vervangen door het volgende:
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
- Vergeet niet om op de knop "Uitvoeren" te drukken.
- Deze keer heb je het dialoogvenster "Deadline Time". Voer de deadline in en klik op "OK".
Houd bestanden ongedeerd
Om de bestandsintegriteit te behouden en ze te beschermen tegen beschadiging, is de beste en gemakkelijkste manier om vaak back-ups te maken. We begrijpen echter dat het moeilijk is om vast te houden aan een routine, daarom zijn er elke dag zoveel kapotte bestanden. Om deze problematische bestanden te herstellen, hebt u een beschadigde Word-reparatieprogramma.
Auteur Introductie:
Vera Chen is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder xlsx foutherstelprogramma en pdf reparatie softwareproducten. Voor meer informatie bezoek www.datanumen.com