2 hurtige måder at indsætte dage eller tid tilbage inden en deadline i dit Word-dokument

I dagens artikel præsenterer vi dig 2 hurtige måder at indsætte de dage eller tid tilbage, der er tilbage inden en deadline i dit Word-dokument.

Hver gang imellem, når du arbejder på et vigtigt projekt, vil du opdage, at du skal huske på de nøjagtige dage eller tid, der er tilbage før deadline for at justere dit arbejdstempo. Så skal det være en god idé at indsætte de dage eller tid, der er tilbage før deadline i dit Word-dokument, så de kan minde dig om den sidste tilbage tid.

I den følgende tekst vil vi gerne introducere dig to metoder til, hvordan man bruger makroer til at beregne og få værdien.

Beregn dage tilbage før deadline

1. Først og fremmest skal du placere markøren på det sted, hvor du vil indsætte tallet.
2. Klik derefter på fanen "Udvikler".
3. Klik derefter på “Visual Basic” i gruppen “Kode” for at åbne VBA-editoren. Du kan også trykke på "Alt + F11" i stedet for, at fanen "Udvikler" ikke er tilgængelig i dit Word.
4. Klik nu på “Normal” og derefter “Indsæt”.
5. Vælg derefter “Modul”.
6. Dobbeltklik på det nye modul for at åbne redigeringsområdet på højre side.
7. Indsæt derefter følgende koder der:

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

8. Klik derefter på knappen "Kør".
9. Du vil blive mødt med en dialogboks, som nedenfor:

Indtast deadline-datoen i tekstboksen, og klik på “OK”.

For nem brug i fremtiden kan du klikke på "Makroer" under fanen "Udvikler" og vælge den rigtige makro og derefter klikke på "Kør". Det udløser dialogboksen.

Beregn den resterende tid inden deadline

Nogle gange, bortset fra at få dage tilbage, skal du muligvis også vide, hvor meget tid du har tilbage før et bestemt tidspunkt. Derefter er den bølgende makro det, du har brug for.

1. Gentag de første 8 trin ovenfor. Kun du er nødt til at erstatte koderne med følgende:

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

2. Husk at trykke på “Kør” -knappen.
3. Denne gang har du dialogboksen "Deadline Time". Indtast deadline og klik derefter på “OK”.

Hold filer ubeskyttet

For at holde filintegritet og gemme dem væk fra korruption er den bedste og nemmeste måde at tage sikkerhedskopier ofte. Vi forstår dog, at det er svært at holde sig til en rutine, hvorfor der er så mange ødelagte filer hver dag. For at reparere disse problematiske filer skal du bruge en beskadiget Word-reparationsværktøj.

Forfatter Introduktion:

Vera Chen er en datagendannelsesekspert i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder xlsx fejlreparationsværktøj og pdf produkter til reparation af software. For mere information besøg www.datanumen.com