In dit artikel willen we u laten kennismaken met 3 verschillende soorten herinneringen in Word die u via VBA kunt aanmaken.
Aangezien sommigen van ons dagelijks met veel bestanden in Word te maken hebben, worden we waarschijnlijk duizelig van wat we moeten doen en laten we soms wat taken ongedaan maken. In dat geval is een herinnering nuttig. Daarom presenteren we u 3 soorten handige herinneringen die u kunt gebruiken om bij te houden wat u moet doen.
De eerste soort: de dagelijkse herinnering
Als u bijvoorbeeld liever aan het einde van vandaag uw planning voor morgen maakt, dan is een dagelijkse herinnering precies wat u nodig hebt. In de Word VBA-editor kunt u een macro toevoegen met de naam "AutoExec". Elke keer dat u Word opent, start de macro dan automatisch en verschijnt er een berichtvenster met alle taken die die dag moeten worden afgerond.
- Open eerst Word en druk op "Alt + F11" om de VBA-editor te openen.
- Klik vervolgens op "Normaal".
- Klik vervolgens op "Invoegen".
- En kies "Module" in het menu om een nieuwe in te voegen onder "Normaal" project.
- Dubbelklik nu op de module om het bewerkingsgebied te openen en plak daar de volgende codes:
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
- Klik vervolgens op "Save Normal" om de wijziging op te slaan.
Het resultaat is dat elke keer dat u Word opent, er een berichtvenster zal zijn met alle taken die u moet voltooien. Door op "OK" te klikken, kunt u een specifiek document openen en verder bewerken.
Opmerkingen:
- In coderegel "dtDate = # 2/20/2017 #”, Is de datum de dag waarop u alle acties moet uitvoeren. Denk eraan om dienovereenkomstig te veranderen.
- In coderegel "MsgBox "Taken die vandaag moeten worden gedaan:" & vbCr & "1: Stuur bestandXX naar John Smith" & vbCr & "2: Voltooi bestand YY"”, Is alle inhoud tussen aanhalingstekens de takenlijst die u moet volgen. Vervang het door je eigen concrete missies. U moet elk lijstitem tussen aanhalingstekens plaatsen en het samenvoegen met het vorige met '& vbCr &”(Geen aanhalingstekens).
De tweede soort: herinneringen voor terugkerende taken
De wekelijkse herinnering
Hier komt de wekelijkse herinnering, met de dingen die u elke week op dezelfde dag moet doen.
- Herhaal eerst de eerste 4 bovenstaande stappen.
- Alleen deze keer plak je de brullende macro:
Sub AutoExec()
Dim dtWeekDay As Date
dtWeekDay = vbMonday
If dtWeekDay = Weekday(Date) Then
MsgBox "Back up today of each week."
End If
End Sub
- Klik op dezelfde manier als laatste op de knop "Opslaan normaal".
Evenzo zal er een berichtvenster zijn. Klik op "OK" om door te gaan met schrijven in Word.
Opmerkingen:
In coderegel "dtWeekDag = vbMaandag", je kan veranderen "vbMaandag' als 'vb dinsdag","vb Woensdag","vbDonderdag","vb Vrijdag","vb Zaterdag", Of"vb Zondag" overeenkomstig.
De maandelijkse herinnering
Op dezelfde manier is er de maandelijkse herinnering, die u herinnert aan een maandelijkse taak.
- Zet nog steeds de eerste 4 stappen in "The First Kind: The Daily Reminder".
- Plak vervolgens de codes daar:
Sub AutoExec()
Dim dtDay As Date
dtDay = 20
If dtDay = Day(Date) Then
MsgBox "Back up today of each month."
End If
End Sub
- Als laatste, maar niet de minste, klik op "Opslaan normaal".
Op dezelfde manier verschijnt er elke keer dat u Word opent een berichtvenster.
Opmerking:
In coderegel "dtDag = 20”, Is het nummer de datum waarop u de maandelijkse taak moet uitvoeren. Vergeet niet om deze te wijzigen voordat u de macro uitvoert.
De derde soort: herinneringen voor datum- of tijdsverschil
Aangezien er voor bijna alles een deadline is, is het belangrijk om precies te weten hoeveel dagen of tijd er nog over zijn. De volgende twee macro's berekenen daarom automatisch het verschil tussen de huidige datum of tijd en de deadline. Het resultaat is zichtbaar in een berichtvenster wanneer u Word opent.
De stappen om de macro uit te voeren en op te slaan zijn dezelfde als hierboven.
Hier is de macro om het dagverschil te krijgen:
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
En het resultaat is:
Opmerking:
Vergeet niet om de coderegel "dtDeadlineDay = # 2/20/2017 #”. Verander gewoon de datum als je nodig hebt.
De volgende is de macro om het tijdsverschil te krijgen:
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
En het resultaat is:
Opmerking:
Vervang de tijd in “dtDeadlineTime = TimeValue ("16:40:00 PM")”Met een zinvolle.
Een waardevolle back-up
We zullen nooit het belang onderschatten en wat het kan doen nadat het bestand corrupt is geworden. Bovendien wordt ons aangeraden om op zijn minst dagelijks, wekelijks of maandelijks een back-upplan uit te brengen. Back-up is de exacte voorbereiding die we moeten nemen om te voorkomen dat onze gegevens beschadigd raken. Anders is de laatste inspanning die we kunnen missen het verkrijgen van een corrupte tool voor het herstellen van Word-gegevens.
Auteur Introductie:
Vera Chen is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder beschadigde Excel xls-reparatietool en pdf reparatie softwareproducten. Voor meer informatie bezoek www.datanumen.com