I den här artikeln vill vi presentera dig med tre olika påminnelser i Word som du kan skapa via VBA.
Eftersom vissa av oss måste hantera många filer i Word dagligen kommer vi troligen att bli yr med vad vi ska göra och lämna vissa jobb ångrade ibland. I så fall ska en påminnelse vara till hjälp. Därför presenterar vi dig tre sorters praktiska påminnelser som du kan använda för att hålla reda på vad du ska göra.
Den första typen: Den dagliga påminnelsen
Till exempel, om du föredrar att planera i morgon i slutet av idag, är en daglig påminnelse vad du behöver. I Word VBA-redigerare kan du lägga till ett makro med namnet “AutoExec”. Varje gång du öppnar Word-applikationen ska makrot start körs automatiskt och dyker upp ett meddelandefält, peka alla uppgifter som ska slutföras den dagen.
- Först öppnar du Word och trycker på “Alt + F11” för att öppna VBA-redigeraren.
- Klicka sedan på “Normal”.
- Klicka sedan på ”Infoga”.
- Och välj "Modul" på menyn för att infoga en ny under "Normal" -projekt.
- Dubbelklicka nu på modulen för att komma in i redigeringsområdet och klistra in följande koder där:
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
- Klicka sedan på "Spara normalt" för att spara ändringen.
Som ett resultat, varje gång du öppnar Word, ska det finnas en meddelandefält som visar alla uppgifter du behöver slutföra. Genom att klicka på “OK” kan du öppna och fortsätta redigera ett visst dokument.
Anmärkningar:
- I kodraden “dtDate = # 2/20/2017 #”, Datumet är dagen då du måste utföra alla åtgärder. Kom ihåg att ändra därefter.
- I kodraden “MsgBox “Uppgifter som ska göras idag:” & vbCr & “1: Skicka filXX till John Smith” & vbCr & “2: Slutför fil YY””, Allt innehåll mellan citattecken är den uppgiftslista du behöver följa. Byt ut det med dina egna konkreta uppdrag. Du bör placera varje lista i citattecken och gå med i det föregående med ”& vbCr &”(Inga citattecken).
Den andra typen: påminnelser för återkommande uppgifter
Veckopåminnelsen
Här kommer en veckopåminnelse som meddelar saker som du måste göra samma dag varje vecka.
- Upprepa först de fyra första stegen ovan.
- Bara den här gången klistrar du in det böljande makrot:
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å samma sätt klickar du på "Spara normalt" -knappen.
På samma sätt kommer det att finnas en meddelanderuta. Klicka på “OK” för att fortsätta skriva i Word.
Anmärkningar:
I kodraden “dtWeekDay = vbMonday", du kan förändra "vbMåndag"Att"vbTisdag","vb onsdag","vbTorsdag","vbFredag","vbLördag"Eller"vbSöndag”Följaktligen.
Den månatliga påminnelsen
På samma sätt finns det en månadspåminnelse som påminner dig om månadsuppgiften.
- Ta fortfarande de fyra första stegen i "The First Kind: The Daily Reminder".
- Klistra sedan in koderna där:
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 inte minst, klicka på "Spara normalt".
På samma sätt dyker en meddelanderuta upp varje gång du öppnar Word.
Obs:
I kodraden “dtDay = 20”, Numret är det datum då du behöver utföra den månatliga uppgiften. Kom ihåg att ändra det innan du kör makrot.
Den tredje typen: påminnelser om datum- eller tidsskillnad
Med tanke på att det finns en deadline för almost allt, det är nödvändigt att komma ihåg exakta dagar eller tid kvar. Därför kan de kommande två makron automatiskt beräkna skillnaden mellan aktuellt datum eller tid och deadline datum eller tid. Och det syns när du öppnar Word och visar resultatet i en meddelanderuta.
Stegen för att köra och spara makro är desamma som ovan.
Här är makrot för att få dagskillnaden:
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
Och resultatet är:
Obs:
Kom ihåg att ändra kodraden “dtDeadlineDay = # 2/20/2017 #”. Ändra bara datumet efter behov.
Därefter är makrot för att få tidsskillnaden:
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
Och resultatet är:
Obs:
Byt ut tiden i “dtDeadlineTime = TimeValue (“16:40:00 PM”)”Med en meningsfull.
En värdefull säkerhetskopia
Vi kommer aldrig att uppskatta vikten och vad den kan göra efter att filen blir skadad. Dessutom rekommenderas vi att ta fram en reservplan åtminstone dagligen, varje vecka eller varje månad. Backup är den exakta förberedelse vi bör göra för att förhindra att våra data skadas. Annars är den sista diken vi kan spara på att få en skadad Word-dataåterställningsverktyg.
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 skadad Excel xls reparationsverktyg och pdf reparera programvaruprodukter. För mer information besök www.datanumen.com