I denne artikkelen vil vi introdusere deg for 3 forskjellige typer påminnelser i Word som du kan lage via VBA.
Siden noen av oss må håndtere mange filer i Word på daglig basis, vil vi sannsynligvis bli svimle av hva vi skal gjøre, og noen ganger lar noen jobber bli ugjort. I så fall skal en påminnelse være nyttig. Derfor presenterer vi deg 3 slags nyttige påminnelser du kan bruke for å holde styr på hva du skal gjøre.
Den første typen: Den daglige påminnelsen
For eksempel, hvis du foretrekker å lage en plan for morgendagen på slutten av i dag, er en daglig påminnelse det du trenger. I Word VBA-editor kan du legge til en makro med navnet "AutoExec". Så hver gang du åpner Word-applikasjonen, skal makroen start kjører automatisk og dukker opp en meldingsboks, og peker på at alle oppgaver skal fullføres den dagen.
- Først åpner du Word og trykker "Alt + F11" for å åpne VBA-redigering.
- Klikk deretter på "Normal".
- Klikk deretter på "Sett inn".
- Og velg "Modul" på menyen for å sette inn en ny under "Normal" prosjekt.
- Dobbeltklikk nå på modulen for å gå inn i redigeringsområdet og lim inn følgende koder der:
Sub AutoExec()
Dim dtDate As Date
dtDate = #2/20/2017#
If Date = dtDate Then
MsgBox "Tasks to be done today:" & vbCr & "1: Send fileXX to John Smith " & vbCr & "2: Finish file YY"
End If
End Sub
- Klikk deretter på "Lagre normal" for å lagre endringen.
Som et resultat, hver gang du åpner Word, vil det være en meldingsboks som viser alle oppgavene du trenger å fullføre. Ved å klikke "OK", kan du åpne og fortsette å redigere på et bestemt dokument.
Merknader:
- I kodelinje "dtDato = #2/20/2017#”, er datoen dagen da du må utføre alle handlingene. Husk å endre tilsvarende.
- I kodelinje "MsgBox "Oppgaver som skal gjøres i dag:" & vbCr & "1: Send fileXX to John Smith" & vbCr & "2: Fullfør fil YY"”, alt innhold mellom anførselstegn er oppgavelisten du må følge. Erstatt den med dine egne konkrete oppdrag. Du bør sette hvert listeelement innenfor anførselstegn og slå det sammen med det forrige med "& vbCr &” (ingen anførselstegn).
Den andre typen: Påminnelser om gjentakende oppgaver
Den ukentlige påminnelsen
Her kommer den ukentlige påminnelsen, som varsler om ting du må gjøre på samme dag hver uke.
- Gjenta først de første 4 trinnene ovenfor.
- Bare denne gangen limer du inn makroen nedenfor:
Sub AutoExec()
Dim dtWeekDay As Date
dtWeekDay = vbMonday
If dtWeekDay = Weekday(Date) Then
MsgBox "Back up today of each week."
End If
End Sub
- På samme måte klikker du på "Lagre normal" -knappen til slutt.
På samme måte vil det være en meldingsboks. Klikk "OK" for å fortsette å skrive i Word.
Merknader:
I kodelinje "dtWeekDay = vbMandag", du kan endre "vbmandag"Til"vbtirsdag","vb onsdag","vbtorsdag","vbfredag","vb lørdag"Eller"vb søndag" tilsvarende.
Den månedlige påminnelsen
På samme måte er det den månedlige påminnelsen, som minner deg om månedlig oppgave.
- Ta fortsatt de første 4 trinnene i "The First Kind: The Daily Reminder".
- Deretter limer du inn kodene der:
Sub AutoExec()
Dim dtDay As Date
dtDay = 20
If dtDay = Day(Date) Then
MsgBox "Back up today of each month."
End If
End Sub
- Sist men ikke minst, klikk "Lagre normal".
På samme måte vil en meldingsboks dukke opp hver gang du åpner Word.
OBS:
I kodelinje "dtDay = 20”, er tallet datoen når du trenger å utføre den månedlige oppgaven. Husk å endre den før du kjører makroen.
Den tredje typen: Påminnelser for dato- eller tidsforskjell
Med tanke på at det er frist for almost alt, det er nødvendig å huske på de eksakte dagene eller tiden som er igjen. Derfor kan de kommende 2 makroene automatisk beregne forskjellen mellom gjeldende dato eller klokkeslett og fristens dato eller klokkeslett. Og det er synlig når du åpner Word, og viser resultatet i en meldingsboks.
Trinnene for å kjøre og lagre makro er de samme som ovenfor.
Her er makroen for å få dagsforskjellen:
Sub Autoexec()
Dim dtDeadlineDay As Date
Dim nDaysLeft As Long
'Specify the deadline date and calculate the days left.
dtDeadlineDay = #2/20/2017#
nDaysLeft = DateDiff("d", Now, dtDeadlineDay)
' Show the days left before deadline.
If nDaysLeft > 1 Then
MsgBox "There are " & nDaysLeft & " days left before " & dtDeadlineDay & "."
ElseIf nDaysLeft = 1 Then
MsgBox "There is 1 day left before " & dtDeadlineDay & "."
ElseIf nDaysLeft = 0 Then
MsgBox "Today is the deadline!"
End If
End Sub
Og resultatet er:
OBS:
Husk å endre kodelinjen "dtDeadlineDay = #2/20/2017#". Bare endre datoen etter behov.
Deretter følger makroen for å få tidsforskjellen:
Sub Autoexec()
Dim dtCurrentTime As Date
Dim dtDeadlineTime As Date
Dim nTimeLeft As Long, nHour As Long, nMinute As Long, nSecond As Long
' Specify the current time and the deadline time.
dtCurrentTime = TimeValue(Now)
dtDeadlineTime = TimeValue("16:40:00 PM")
' Calculate and show the time difference.
nTimeLeft = DateDiff("s", dtCurrentTime, dtDeadlineTime)
nHour = nTimeLeft \ 3600
nTimeLeft = nTimeLeft - nHour * 3600
nMinute = nTimeLeft \ 60
nSecond = nTimeLeft - nMinute * 60
MsgBox "There are " & nHour & " hours " & nMinute & " minutes " & nSecond & " seconds left before " & dtDeadlineTime & "."
End Sub
Og resultatet er:
OBS:
Bytt ut tiden i "dtDeadlineTime = TimeValue(“16:40:00 PM”)” med en meningsfull en.
En verdig sikkerhetskopi
Vi skal aldri undervurdere viktigheten og hva den kan gjøre etter at filen blir korrupt. Dessuten anbefales vi å lage en backup-plan på daglig eller ukentlig eller månedlig basis. Sikkerhetskopiering er den nøyaktige forberedelsen vi bør gjøre for å forhindre at dataene våre blir skadet. Ellers er den siste innsatsen vi kan spare å oppnå en korrupte Word-datagjenopprettingsverktøy.
Forfatterintroduksjon:
Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert ødelagt Excel xls reparasjonsverktøy og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med