2 raske måter å sette inn dagene eller tiden som er igjen før en frist i Word-dokumentet ditt

I dagens artikkel vil vi presentere deg 2 raske måter å sette inn dagene eller tiden som er igjen før en deadline i Word-dokumentet ditt.

En gang i blant, når du jobber med et viktig prosjekt, vil du oppdage at du må huske på de eksakte dagene eller tiden som gjenstår før fristen for å justere arbeidstempoet. Da vil det være en god idé å sette inn dagene eller tiden som er igjen før fristen i Word-dokumentet ditt, slik at de kan minne deg på siste tid igjen.

I den følgende teksten vil vi introdusere deg 2 metoder for hvordan du bruker makroer til å beregne og få verdien.

Beregn dager igjen før fristen

1. Først og fremst plasserer du markøren der du vil sette inn tallet.
2. Klikk deretter på "Utvikler"-fanen.
3. Klikk deretter på "Visual Basic" i "Code"-gruppen for å åpne VBA-editoren. Du kan også trykke "Alt + F11" i stedet i tilfelle "Utvikler"-fanen ikke er tilgjengelig i Word.
4. Klikk nå "Normal" og deretter "Sett inn".
5. Deretter velger du "Modul".
6. Dobbeltklikk på den nye modulen for å åpne redigeringsområdet på høyre side.
7. Deretter limer du inn 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. Deretter klikker du på "Kjør"-knappen.
9. Du vil bli møtt med en dialogboks, for eksempel nedenfor:

Skriv inn fristen i tekstboksen og klikk "OK".

For enkel bruk i fremtiden kan du klikke "Makroer" under "Utvikler"-fanen og velge riktig makro og deretter klikke "Kjør". Det skal utløse dialogboksen.

Beregn tid igjen før fristen

Noen ganger, bortsett fra å få dager igjen, kan det hende du også trenger å vite hvor mye tid du har igjen før et bestemt tidspunkt. Da er den underliggende makroen det du trenger.

1. Gjenta de første 8 trinnene ovenfor. Bare du må erstatte kodene 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 å trykke på "Kjør"-knappen.
3. Denne gangen vil du ha dialogboksen "Deadline Time". Skriv inn tidsfristen og klikk "OK".

Hold filer uskadd

For å holde filintegriteten og lagre dem unna korrupsjon, er den beste og enkleste måten å ta sikkerhetskopier ofte. Vi forstår imidlertid at det er vanskelig å holde seg til en rutine, og det er derfor det er så mange ødelagte filer hver dag. For å reparere disse problematiske filene, trenger du en ødelagt Word-reparasjonsverktøy.

Forfatterintroduksjon:

Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert xlsx feilreparasjonsverktøy og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med