在今天的文章中，我們將向您介紹兩種在 Word 文檔中插入截止日期前剩余天數或時間的快速方法。
每隔一段時間，當你在處理一個重要的項目時，你會發現你必須牢記截止日期前的確切日期或時間，以便調整你的工作節奏。 那麼將截止日期前剩餘的天數或時間插入到您的 Word 文檔中將是一個好主意，這樣它們可以提醒您最晚的剩餘時間。
在下文中，我們將向您介紹兩種使用宏來計算和獲取值的方法。
計算截止日期前剩餘的天數
- 首先，將遊標放在你想插入數字的位置。
- 然後，單擊“開發人員”選項卡。
- 接下來單擊“代碼”組中的“Visual Basic”以打開 VBA 編輯器。 此外，如果您的 Word 中沒有“開發人員”選項卡，您可以按“Alt+F11”代替。
- 現在，單擊“普通”，然後單擊“插入”。
- 接下來，選擇“模塊”。
- 雙擊新建的模塊，打開右側的編輯區。
- 然後在其中粘貼以下代碼：
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
- 接下來，單擊“運行”按鈕。
- 您將看到一個對話框，如下所示：
在文本框中輸入截止日期，然後單擊“確定”。
為了以後使用方便，您可以點擊“開發者”選項卡下的“宏”，選擇合適的宏，然後點擊“運行”。 它應觸發對話框。
計算截止日期前剩餘的時間
有時，除了計算剩余天數外，您可能還需要知道在特定時間之前還剩多少時間。 然後，下面的宏就是您所需要的。
- 重複上面的前 8 個步驟。 只需將代碼替換為以下內容：
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
- 記得點擊“運行”按鈕。
- 這一次，您將看到“截止時間”對話框。 輸入截止時間，然後單擊“確定”。
保持文件不受傷害
為了保持文件的完整性並使它們遠離損壞，最好和最簡單的方法是經常進行備份。 但是，我們知道很難堅持常規，這就是為什麼每天都有那麼多損壞的文件。 要修復這些有問題的文件，您需要 損壞的Word修復工具.
作者簡介：
陳薇薇（Vera Chen）是 DataNumen，Inc.是數據恢復技術的全球領導者，包括 xlsx錯誤修復工具 以及 pdf 維修軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM