In dem heutigen Artikel werden wir Ihnen zwei schnelle Möglichkeiten vorstellen, wie Sie die verbleibenden Tage oder Zeiten vor Ablauf einer Frist in Ihr Word-Dokument einfügen können.
Wenn Sie an einem wichtigen Projekt arbeiten, müssen Sie hin und wieder die genauen Tage oder die Zeit vor Ablauf der Frist berücksichtigen, um Ihr Arbeitstempo anzupassen. Dann ist es eine gute Idee, die Tage oder die Zeit vor Ablauf der Frist in Ihr Word-Dokument einzufügen, damit Sie an die letzte verbleibende Zeit erinnert werden.
Im folgenden Text möchten wir Ihnen zwei Methoden vorstellen, wie Sie Makros verwenden, um den Wert zu berechnen und abzurufen.
Berechnen Sie die verbleibenden Tage vor Ablauf der Frist
- Als Erstes platzieren Sie den Cursor an der Stelle, an der Sie die Zahl einfügen möchten.
- Klicken Sie dann auf die Registerkarte "Entwickler".
- Klicken Sie anschließend in der Gruppe "Code" auf "Visual Basic", um den VBA-Editor zu öffnen. Sie können stattdessen auch "Alt + F11" drücken, falls die Registerkarte "Entwickler" in Ihrem Word nicht verfügbar ist.
- Klicken Sie nun auf "Normal" und dann auf "Einfügen".
- Als nächstes wählen Sie "Modul".
- Doppelklicken Sie auf das neue Modul, um den Bearbeitungsbereich auf der rechten Seite zu öffnen.
- Fügen Sie dort die folgenden Codes ein:
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
- Klicken Sie anschließend auf die Schaltfläche "Ausführen".
- Sie werden mit einem Dialogfeld wie dem folgenden begrüßt:
Geben Sie das Stichtag in das Textfeld ein und klicken Sie auf "OK".
Zur späteren Verwendung können Sie auf der Registerkarte "Entwickler" auf "Makros" klicken, das richtige Makro auswählen und dann auf "Ausführen" klicken. Es soll das Dialogfeld auslösen.
Berechnen Sie die verbleibende Zeit vor Ablauf der Frist
Abgesehen davon, dass Sie noch Tage übrig haben, müssen Sie manchmal auch wissen, wie viel Zeit Sie vor einer bestimmten Zeit noch haben. Dann ist das brüllende Makro genau das, was Sie brauchen.
- Wiederholen Sie die ersten 8 Schritte oben. Nur Sie müssen die Codes durch folgende ersetzen:
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
- Denken Sie daran, die Schaltfläche "Ausführen" zu drücken.
- Dieses Mal haben Sie das Dialogfeld "Deadline Time". Geben Sie die Frist ein und klicken Sie auf "OK".
Dateien unversehrt lassen
Um die Integrität der Dateien zu gewährleisten und sie vor Beschädigung zu schützen, ist es am besten und einfachsten, häufig Backups zu erstellen. Wir verstehen jedoch, dass es schwierig ist, sich an eine Routine zu halten, weshalb es jeden Tag so viele kaputte Dateien gibt. Um diese problematischen Dateien zu reparieren, benötigen Sie eine beschädigtes Word-Reparatur-Tool.
Einführung des Autors:
Vera Chen ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich xlsx Fehlerreparatur-Tool und pdf Reparatur von Softwareprodukten. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX