In diesem Artikel möchten wir Ihnen drei verschiedene Arten von Erinnerungen in Word vorstellen, die Sie über VBA erstellen können.
Da einige von uns täglich mit vielen Dateien in Word arbeiten müssen, wird uns wahrscheinlich schwindelig, was zu tun ist, und einige Jobs werden manchmal nicht ausgeführt. In diesem Fall ist eine Erinnerung hilfreich. Aus diesem Grund präsentieren wir Ihnen drei nützliche Erinnerungen, mit denen Sie verfolgen können, was zu tun ist.
Die erste Art: Die tägliche Erinnerung
Wenn Sie beispielsweise Ihre Pläne für morgen lieber am Ende des Tages erstellen möchten, benötigen Sie eine tägliche Erinnerung. Im Word-VBA-Editor können Sie ein Makro mit dem Namen „AutoExec“ hinzufügen. Jedes Mal, wenn Sie Word öffnen, wird das Makro automatisch ausgeführt und zeigt eine Meldung mit allen Aufgaben an, die an diesem Tag erledigt werden müssen.
- Öffnen Sie zunächst Word und drücken Sie „Alt + F11“, um den VBA-Editor zu öffnen.
- Klicken Sie dann auf "Normal".
- Klicken Sie anschließend auf "Einfügen".
- Und wählen Sie im Menü "Modul", um ein neues unter "Normal" -Projekt einzufügen.
- Doppelklicken Sie nun auf das Modul, um den Bearbeitungsbereich aufzurufen und dort die folgenden Codes einzufügen:
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
- Klicken Sie anschließend auf "Normal speichern", um die Änderung zu speichern.
Daher wird jedes Mal, wenn Sie Word öffnen, ein Meldungsfeld angezeigt, in dem alle Aufgaben aufgelistet sind, die Sie ausführen müssen. Durch Klicken auf "OK" können Sie ein bestimmtes Dokument öffnen und weiter bearbeiten.
Hinweis:
- In der Codezeile “dtDate = # 2 #”Ist das Datum der Tag, an dem Sie alle Aktionen ausführen müssen. Denken Sie daran, entsprechend zu ändern.
- In der Codezeile “MsgBox "Aufgaben, die heute erledigt werden müssen:" & vbCr & "1: DateiXX an John Smith senden" & vbCr & "2: Datei beenden YY"”Ist der gesamte Inhalt zwischen Anführungszeichen die Aufgabenliste, der Sie folgen müssen. Ersetzen Sie es durch Ihre eigenen konkreten Missionen. Sie sollten jedes Listenelement in Anführungszeichen setzen und es mit dem vorherigen mit "& vbCr &”(Keine Anführungszeichen).
Die zweite Art: Erinnerungen an wiederkehrende Aufgaben
Die wöchentliche Erinnerung
Hier kommt die wöchentliche Erinnerung, die Dinge benachrichtigt, die Sie jede Woche am selben Tag tun müssen.
- Wiederholen Sie zunächst die ersten 4 Schritte oben.
- Nur dieses Mal fügen Sie das folgende Makro ein:
Sub AutoExec()
Dim dtWeekDay As Date
dtWeekDay = vbMonday
If dtWeekDay = Weekday(Date) Then
MsgBox "Back up today of each week."
End If
End Sub
- Klicken Sie zum Schluss zuletzt auf die Schaltfläche „Normal speichern“.
Ebenso wird es ein Meldungsfeld geben. Klicken Sie auf "OK", um mit dem Schreiben in Word fortzufahren.
Hinweis:
In der Codezeile “dtWochentag = vbMontag", du kannst ändern "vbMontag"To"vbDienstag", "vbMittwoch", "vbDonnerstag", "vbFreitag", "vbSamstag", Oder"vbSonntag”Entsprechend.
Die monatliche Erinnerung
Ebenso gibt es die monatliche Erinnerung, die Sie an die monatliche Aufgabe erinnert.
- Machen Sie immer noch die ersten 4 Schritte in „Die erste Art: Die tägliche Erinnerung“.
- Fügen Sie dann die Codes dort ein:
Sub AutoExec()
Dim dtDay As Date
dtDay = 20
If dtDay = Day(Date) Then
MsgBox "Back up today of each month."
End If
End Sub
- Klicken Sie zu guter Letzt auf "Normal speichern".
Ebenso wird jedes Mal, wenn Sie Word öffnen, ein Meldungsfeld angezeigt.
Hinweis:
In der Codezeile “dtTag = 20”Ist die Nummer das Datum, an dem Sie die monatliche Aufgabe erfüllen müssen. Denken Sie daran, es zu ändern, bevor Sie das Makro ausführen.
Die dritte Art: Erinnerungen für Datums- oder Zeitunterschied
Da fast alles eine Frist hat, ist es wichtig, die verbleibenden Tage oder Zeiten im Blick zu behalten. Die folgenden zwei Makros berechnen daher automatisch die Differenz zwischen dem aktuellen Datum bzw. der aktuellen Uhrzeit und dem Fälligkeitsdatum bzw. der Fälligkeitszeit. Das Ergebnis wird beim Öffnen von Word in einem Meldungsfeld angezeigt.
Die Schritte zum Ausführen und Speichern des Makros sind die gleichen wie oben.
Hier ist das Makro, um den Tagesunterschied zu ermitteln:
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
Und das Ergebnis ist:
Hinweis:
Denken Sie daran, die Codezeile zu ändern. “dtDeadlineDay = # 2 #”. Ändern Sie einfach das Datum nach Bedarf.
Als nächstes folgt das Makro, um den Zeitunterschied zu ermitteln:
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
Und das Ergebnis ist:
Hinweis:
Ersetzen Sie die Zeit in “dtDeadlineTime = TimeValue ("16:40:00 PM")Mit einem aussagekräftigen.
Eine lohnende Sicherung
Wir werden niemals unterschätzen, wie wichtig und was es tun kann, wenn eine Datei beschädigt wird. Außerdem wird empfohlen, mindestens täglich, wöchentlich oder monatlich einen Backup-Plan zu erstellen. Backup ist die genaue Vorbereitung, die wir treffen sollten, um zu verhindern, dass unsere Daten beschädigt werden. Andernfalls besteht die letzte Anstrengung, die wir sparen können, darin, eine zu erhalten beschädigtes Word-Datenwiederherstellungstool.
Einführung des Autors:
Vera Chen ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich beschädigtes Excel XLS-Reparaturwerkzeug und pdf Reparatur von Softwareprodukten. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX