Hoe sla je een Word-document op met de huidige datum in de bestandsnaam?
Als je automatisch de huidige datum in de bestandsnaam wilt toevoegen wanneer je een Word-document opslaat, hoe zou je deze taak dan kunnen uitvoeren in een Word-bestand?
Een Word-document opslaan met de huidige datum in de bestandsnaam met VBA-code
Een Word-document opslaan met de huidige datum in de bestandsnaam met VBA-code
Om automatisch de huidige datum toe te voegen aan de bestandsnaam wanneer je het Word-document opslaat, volg dan de volgende stappen:
1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
2. Klik vervolgens op Invoegen > Module, kopieer en plak de onderstaande code in 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 je de code in de module hebt geplakt, druk op de F5-toets om deze code uit te voeren, en er wordt een Opslaan als-venster weergegeven met de huidige datum automatisch in het tekstvak Bestandsnaam, zie screenshot:
4. Typ vervolgens gewoon je eigen bestandsnaam zoals je nodig hebt, zie screenshot:
Doe meer in minder tijd met AI-verbeterde Kutools voor Word
Kutools voor Word is niet zomaar een set tools - het is een slimme oplossing ontworpen om uw productiviteit te verhogen. Met AI-aangedreven mogelijkheden en de meest essentiële functies helpt Kutools u om meer te bereiken in minder tijd:
- Samenvatten, herschrijven, componeren en vertalen van inhoud in een oogwenk.
- Tekst in real-time proeflezen met suggesties voor grammatica, leestekens en stijl terwijl u schrijft.
- Inhoud herformuleren en vertalen zonder dat de lay-out, stijl of structuur wordt aangepast.
- Vertaal uw inhoud eenvoudig in meer dan 40 talen en breid uw wereldwijde bereik uit.
- Ontvang directe hulp en intelligente inzichten gebaseerd op de inhoud van uw huidige document.
- Vraag hoe u een taak kunt voltooien - zoals het verwijderen van sectie-einden - en de AI zal u begeleiden of het voor u doen.
- Bewerk gevoelige of vertrouwelijke informatie binnen enkele seconden om volledige privacy te waarborgen.
- Alle tools werken naadloos binnen Word en zijn altijd binnen handbereik.
- Maak, verfijn, vertaal, samenvatten en beveilig documenten moeiteloos.
- Verbeter grammatica, duidelijkheid en toon terwijl u in real-time schrijft.
- Herschrijf en vertaal inhoud zonder wijzigingen in lay-out of opmaak.
- Vraag hoe u een taak kunt voltooien - zoals het verwijderen van sectie-einden - en de AI zal u begeleiden of het voor u doen.
- Alle tools werken naadloos binnen Word en zijn altijd binnen handbereik.
Meer informatie over Kutools voor Word Nu downloaden
✨ Kutools for Office – Één installatie, vijf krachtige tools!
Inclusief Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint
📦 Krijg alle5 tools in één pakket | 🔗 Naadloze integratie met Microsoft Office | ⚡ Bespaar tijd en verhoog direct uw productiviteit
Beste Office-productiviteitstools
Kutools for Word – 100+ tools voor Word
