Een Word-document opslaan met de huidige datum in de bestandsnaam met VBA-code
Om automatisch de huidige datum in de bestandsnaam op te nemen bij het opslaan van het Word-document, voert u de volgende stappen uit:
1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
2. Klik vervolgens op Invoegen > Module en kopieer de onderstaande code naar de geopende lege module:
VBA-code: Een Word-document opslaan met de huidige datum in de bestandsnaam
Public Sub FileSave1()
Dim xDlg As Dialog
Dim xTitle As String
On Error Resume Next
xTitle = ActiveDocument.BuiltInDocumentProperties("Title").Value
xTitle = xTitle & " " & Format((Year(Now() + 1) Mod 100), "20##") & "-" & _
Format((Month(Now() + 1) Mod 100), "0#") & "-" & _
Format((Day(Now()) Mod 100), "0#")
Set xDlg = Dialogs(wdDialogFileSaveAs)
xDlg.Name = xTitle
xDlg.Show
End Sub
3. Nadat u de code in de module hebt geplakt, drukt u op de toets F5 om deze code uit te voeren. Er verschijnt nu een Opslaan als-venster waarin de huidige datum automatisch is ingevoegd in het tekstvak Bestandsnaam. Zie de schermafbeelding:
4. Typ vervolgens gewoon uw gewenste bestandsnaam in, zoals te zien op de schermafbeelding:
Doe meer in minder tijd met AI-versterkt Kutools voor Word
Kutools voor Word is niet zomaar een verzameling tools – het is een slimme oplossing die uw productiviteit flink verhoogt. Dankzij AI-gestuurde functionaliteiten en de meest essentiële functies bereikt u meer in minder tijd:
Combineer de inhoud direct, herschrijf deze, stel samen en vertaal.
Laat uw tekst in real time corrigeren met suggesties voor grammatica, leestekens en stijl terwijl u typt.
Herschrijf en vertaal de inhoud zonder de lay-out, stijl of structuur te wijzigen.
Vertaal uw inhoud moeiteloos naar meer dan 40 talen en vergroot daarmee uw wereldwijde bereik.
Ontvang directe hulp en slimme inzichten op basis van de inhoud van uw huidige document.
Vraag hoe u een taak kunt uitvoeren – bijvoorbeeld het verwijderen van een sectie-einde – en de AI begeleidt u of voert deze direct voor u uit.
Verwijder gevoelige of vertrouwelijke informatie in slechts enkele seconden voor gegarandeerde privacy.
Alle tools werken naadloos in Word en zijn altijd binnen handbereik.
Stel moeiteloos documenten samen, verfijn, vertaal, vat samen en beveilig ze.
Verbeter grammatica, duidelijkheid en toon terwijl u in realtime typt.
Herschrijf en vertaal de inhoud zonder wijzigingen in lay-out of opmaak.
Vraag hoe u een taak kunt uitvoeren – bijvoorbeeld het verwijderen van een sectie-einde – en de AI begeleidt u of voert deze direct voor u uit.
Alle tools werken naadloos in Word en zijn altijd binnen handbereik.
