2 snabba sätt att infoga dagar eller tid kvar innan en deadline i ditt Word-dokument

I dagens artikel presenterar vi dig två snabba sätt att infoga de dagar eller tid som är kvar innan en deadline i ditt Word-dokument.

Då och då, när du arbetar med ett viktigt projekt, kommer du att upptäcka att du måste komma ihåg de exakta dagarna eller tiden som är kvar innan deadline för att justera din arbetstakt. Då ska det vara en bra idé att infoga de dagar eller tid som är kvar innan tidsfristen i ditt Word-dokument, så att de kan påminna dig om den senaste tiden kvar.

I följande text vill vi presentera två metoder för hur du använder makron för att beräkna och få värdet.

Beräkna dagar kvar innan deadline

1. Först och främst, placera markören på den position där du vill infoga numret.
2. Klicka sedan på fliken "Utvecklare".
3. Klicka sedan på “Visual Basic” i gruppen “Kod” för att öppna VBA-redigeraren. Du kan också trycka på "Alt + F11" istället om "Utvecklare" -fliken inte är tillgänglig i ditt Word.
4. Klicka nu på “Normal” och sedan “Infoga”.
5. Välj sedan ”Modul”.
6. Dubbelklicka på den nya modulen för att öppna redigeringsområdet på höger sida.
7. Klistra sedan in följande koder där:

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. Klicka sedan på "Kör" -knappen.
9. Du hälsas med en dialogruta, såsom nedan:

Ange tidsfristen i textrutan och klicka på “OK”.

För enkel användning i framtiden kan du klicka på "Makron" under fliken "Utvecklare" och välja rätt makro och sedan klicka på "Kör". Det ska utlösa dialogrutan.

Beräkna kvar tid innan deadline

Ibland, förutom att få dagar kvar, kan du också behöva veta hur mycket tid du har kvar innan en viss tid. Sedan är det böljande makrot vad du behöver.

1. Upprepa de första 8 stegen ovan. Bara du måste ersätta koderna med följande:

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. Kom ihåg att trycka på knappen "Kör".
3. Den här gången kommer du att ha dialogrutan "Deadline Time". Ange tidsfristen och klicka sedan på “OK”.

Håll filer oskadade

För att hålla filintegriteten och lagra dem från korruption är det bästa och enklaste sättet att säkerhetskopiera ofta. Vi förstår dock att det är svårt att hålla sig till en rutin, varför det finns så många trasiga filer varje dag. För att reparera dessa problematiska filer behöver du en skadad Word-reparationsverktyg.

Författarintroduktion:

Vera Chen är en dataåterställningsexpert i DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive xlsx felreparationsverktyg och pdf reparera programvaruprodukter. För mer information besök www.datanumen.com