2 hitra načina za vstavitev dni ali časa pred rokom v dokument Word

V današnjem članku vam bomo predstavili dva hitra načina, kako v svoj Wordov dokument vstavite dni ali čas, ki je ostal pred rokom.

Vsake toliko časa, ko delate pomemben projekt, boste ugotovili, da morate upoštevati natančne dni ali čas, ki je ostal pred rokom, da prilagodite svoj delovni tempo. Potem bo odlična ideja, da v svoj Wordov dokument vstavite dni ali čas, ki je ostal pred rokom, tako da vas bodo lahko opozorili na zadnji čas.

V naslednjem besedilu vam želimo predstaviti dva načina, kako uporabiti makre za izračun in pridobitev vrednosti.

Izračunajte dni, ki ostanejo pred rokom

1. Najprej in predvsem postavite kazalec na mesto, kamor želite vstaviti številko.
2. Nato kliknite jeziček »Razvijalec«.
3. Nato kliknite »Visual Basic« v skupini »Code«, da odprete urejevalnik VBA. Namesto tega lahko pritisnete »Alt + F11«, če zavihek »Razvijalec« v vašem Wordu ni na voljo.
4. Zdaj kliknite »Običajno« in nato »Vstavi«.
5. Nato izberite »Modul«.
6. Dvokliknite nov modul, da odprete območje za urejanje na desni strani.
7. Nato prilepite naslednje kode:

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. Nato kliknite gumb »Zaženi«.
9. Pozdravilo vas bo pogovorno okno, na primer spodaj:

Vnesite datum roka v besedilno polje in kliknite »V redu«.

Za lažjo uporabo v prihodnosti lahko na zavihku »Razvijalec« kliknete »Makri« in izberete pravi makro, nato kliknite »Zaženi«. Sprožilo bo pogovorno okno.

Izračunajte preostali čas do roka

Včasih boste morda morali poleg tega, da boste prejeli še nekaj dni, vedeti, koliko časa imate do določenega časa. Potem boste potrebovali spodnji makro.

1. Ponovite prvih 8 korakov zgoraj. Samo kode morate zamenjati z naslednjimi:

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. Ne pozabite pritisniti gumba »Zaženi«.
3. Tokrat boste imeli pogovorno okno »Čas roka«. Vnesite rok in kliknite »V redu«.

Datoteke naj ostanejo nepoškodovane

Če želite ohraniti celovitost datotek in jih shraniti stran od korupcije, je najboljši in najpreprostejši način pogosto varnostno kopiranje. Vendar razumemo, da se je težko držati rutine, zato je vsak dan toliko zlomljenih datotek. Če želite popraviti te problematične datoteke, potrebujete poškodovano orodje za popravilo Word.

Uvod avtorja:

Vera Chen je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z orodje za popravilo napak xlsx in pdf popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com