Hoe u een toekomstige of eerdere datum in uw Word-document kunt invoegen via VBA-codes

In dit artikel laten we u een interessante truc zien om via VBA-codes een toekomstige of eerdere datum in uw Word-document in te voegen.

Over het algemeen hebben we geen moeite om een ​​huidige datum in ons Word-document in te voegen. Toch zouden we ons af en toe kunnen voorbereiden op het document dat volgende week of maand of zelfs later nodig is. Dan is hier het probleem dat u niet kunt omzeilen. Hoe kunt u een toekomstige datum in een Word-bestand invoegen? En soms wat dacht je van een verleden zelfs?

Daarom denken wij dat u deze nuttige methode moet begrijpen om uw werktaken beter te kunnen vervullen.

Gebruik VBA-codes om een ​​toekomstige of plakdatum in te voegen

1. Open om te beginnen uw Word-document.
2. Klik vervolgens op het tabblad "Ontwikkelaar".
3. Klik vervolgens op "Visual Basic" om de VBA-editor te openen. Als het tabblad "Ontwikkelaar" niet beschikbaar is in uw Word-lint, kunt u op "Alt + F11" drukken om de editor te openen.
4. Klik nu in de editor aan de linkerkant op "Normaal".
5. Klik vervolgens op "Invoegen" op de werkbalk.
6. Kies vervolgens "Module" uit het lijstmenu.
7. Dubbelklik nu op de nieuw ingevoegde module en het bewerkingsgebied zal aan de rechterkant beschikbaar zijn.
8. Plak daar gewoon de volgende codes:

Sub InsertFutureOrPastDate()
  Dim strNumberOfDays As String

  ' Input the number of days you want to insert from today to the future or past date.
  strNumberOfDays = InputBox("Please input the number of days you want to insert", "future or past date", "Input here.For exemple,input 1 to insert the date of tomorrow")
  ' Insert the future or past date according to the inputed number of days
  If strNumberOfDays <> "" Then
    Selection.TypeText Text:=Format(Date + strNumberOfDays, "dddd, MMMM dd, yyyy")
  End If       
End Sub

9. Klik vervolgens op de knop "Opslaan" en sluit de VBA-editor.
10. Schakel nu terug naar het Word-documentscherm en plaats uw cursor op de plaats waar de toekomstige of eerdere datum naartoe gaat.
11. Klik vervolgens opnieuw op het tabblad "Ontwikkelaar".
12. En klik op "Macro's" in de groep "Code" om het venster "Macro's" te openen. Nogmaals, als het tabblad "Ontwikkelaar" niet wordt weergegeven, hoeft u alleen maar op "Alt + F8" te drukken.
13. Zoek en selecteer nu in het venster "Macro's" de macro "InsertFutureOrPastDate".
14. Klik vervolgens op "Uitvoeren".
15. Vervolgens wordt u begroet door een berichtvenster. U kunt een getal invoeren in het tekstvak onder aan het vak om de resterende dagen tot de toekomstige datum weer te geven. Als u bijvoorbeeld de datum van morgen wilt invoegen, moet u daar "1" invoeren. Evenzo, als u een datum uit het verleden nodig heeft, voegt u gewoon een minteken toe voor de waarde, zoals "-1" voor gisteren.
16. Vergeet niet op "OK" te klikken.

Opmerking: in codes "Selection.TypeText Text: = Format (Date + strNumberOfDays," dddd, MMMM dd, yyyy ")" vertegenwoordigen de "dddd, MMMM dd, yyyy" de datumnotatie, waarbij "M" staat voor "maand" , "D" voor "dag", "y" voor "jaar" en "dddd" voor "week", dus u bent vrij om dit naar wens te wijzigen.

Herwin uw waardevolle bestanden

Word is vatbaar voor instorting waardoor onze Word-bestanden in gevaar komen. Af en toe zijn sommige van onze onschatbare gegevens gewoon verdwenen. Maar wat weg is, is niet helemaal weg. U kunt zitten klagen over het verlies van uw kritieke bestanden of u kunt een bekwame persoon kiezen beschadigd Word-herstelprogramma om ze op te halen.

Auteur Introductie:

Vera Chen is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder Reparatie probleem met Excel xls-bestand en pdf reparatie softwareproducten. Voor meer informatie bezoek www.datanumen.com