Jak vložit budoucí nebo minulé datum do dokumentu Word pomocí kódů VBA

Slovní řešení September 28, 2025
Sdílej nyní:

V tomto článku vám ukážeme zajímavý trik, jak vložit budoucí nebo minulé datum do dokumentu Word pomocí kódů VBA.

Obecně nemáme potíže s vložením aktuálního data do našeho dokumentu Wordu. Přesto jsme se občas mohli připravovat na dokument potřebný příští týden nebo měsíc nebo dokonce později. Pak je tu problém, který nemůžete obejít. Jak můžete vložit budoucí datum do souboru Word? A někdy, co třeba minulý?

Proto si myslíme, že musíte tuto užitečnou metodu pochopit, abyste lépe plnili své pracovní úkoly.

Pomocí kódů VBA můžete vložit budoucnost nebo vložit datum

  1. Nejprve otevřete dokument aplikace Word.
  2. Poté klikněte na kartu Vývojář.
  3. Poté klikněte na „Visual Basic“ a otevřete editor VBA. Pokud na pásu karet aplikace Word není karta „Vývojář“ k dispozici, můžete místo toho otevřít kombinaci kláves „Alt + F11“.Klikněte na „Vývojář“ -> Klikněte na „Visual Basic“
  4. Nyní v editoru klikněte na levé straně na „Normální“.
  5. Poté klikněte na „Vložit“ na panelu nástrojů.
  6. Dále vyberte ze seznamu „Modul“.Klikněte na „Normální“ -> Klikněte na „Vložit“ -> Klikněte na „Modul“
  7. Nyní poklepejte na nově vložený modul a oblast úprav bude k dispozici na pravé straně.
  8. Stačí tam vložit následující kódy:
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
  1. Dále klikněte na tlačítko „Uložit“ a zavřete editor VBA.Dvakrát klikněte na Nový modul -> Vložit kódy -> Klikněte na „Uložit“
  2. Nyní přepněte zpět na obrazovku dokumentu Word a umístěte kurzor na místo, kam směřuje budoucí nebo minulé datum.
  3. Poté znovu klikněte na kartu Vývojář.
  4. A kliknutím na „Makra“ ve skupině „Kód“ otevřete okno „Makra“. Pokud se znovu nezobrazí karta „Vývojář“, stačí stisknout „Alt + F8“.Klikněte na „Vývojář“ -> Klikněte na „Makra“
  5. Nyní v okně „Makra“ vyhledejte a vyberte makro „InsertFutureOrPastDate“.
  6. Dále klikněte na „Spustit“.Vyberte „InsertFutureOrPastDate“ -> klikněte na „Spustit“
  7. Poté vás přivítá schránka se zprávou. Do textového pole ve spodní části pole můžete zadat číslo, které představuje zbývající dny do budoucího data. Například pokud chcete vložit datum zítřka, měli byste tam zadat „1“. Podobně, pokud potřebujete minulé datum, stačí před hodnotu přidat znaménko minus, například „-1“ pro včerejšek.
  8. Nezapomeňte kliknout na „OK“.Zadejte do textového pole -> klikněte na „OK“Vložte budoucí a minulé datum

Poznámka: V kódech „Selection.TypeText Text: = Format (Date + strNumberOfDays,„ dddd, MMMM dd, yyyy “)“ představují „dddd, MMMM dd, yyyy“ formát data, kde „M“ znamená „měsíc“ , „D“ pro „den“, „y“ pro „rok“ a „dddd“ pro „týden“, takže si jej můžete libovolně změnit.

Získejte zpět své cenné soubory

Word je náchylný ke kolapsům, které ohrožují naše soubory Word. Občas jsou některá z našich neocenitelných dat pryč. Ale to, co je pryč, není úplně pryč. Můžete sedět naříkat nad ztrátou důležitých souborů nebo si můžete vybrat zkušeného poškozený nástroj pro obnovení aplikace Word načíst.

Úvod autora:

Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně Oprava problému se souborem Excel xls a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com

Sdílej nyní:

Komentáře jsou uzavřeny.