Hoe een Word-document met de huidige datum in de bestandsnaam opslaan?
Als u de huidige datum automatisch in de bestandsnaam moet toevoegen wanneer u een Word-document opslaat, hoe kunt u dan omgaan met deze taak in een Word-bestand?
Sla een Word-document op met de huidige datum in de bestandsnaam met VBA-code
Sla een Word-document op met de huidige datum in de bestandsnaam met VBA-code
Voer de volgende stappen uit om automatisch de huidige datum aan de bestandsnaam toe te voegen bij het opslaan van het Word-document:
1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. En klik dan Invoegen > Module, kopieer en plak onderstaande code in de geopende lege module:
VBA-code: sla een Word-document op 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. Druk op nadat u de code in de module hebt geplakt F5 sleutel om deze code uit te voeren, en een Opslaan als venster wordt weergegeven met de huidige datum automatisch in het Bestandsnaam tekstvak, zie screenshot:
4. En dan hoeft u alleen maar uw eigen bestandsnaam in te voeren zoals u nodig hebt, zie screenshot:
Beste Office-productiviteitstools
Kutools for Word - Verbeter uw woordervaring met Over 100 Opmerkelijke kenmerken!
🤖 Kutools AI-assistent: Transformeer uw schrijven met AI - Inhoud genereren / Herschrijf tekst / Documenten samenvatten / Informeer voor informatie gebaseerd op document, allemaal binnen Word
📘 Documentbeheersing: Pagina's splitsen / Voeg documenten samen / Selectie exporteren in verschillende formaten (PDF/TXT/DOC/HTML...) / Batchconversie naar PDF / Pagina's exporteren als afbeeldingen / Meerdere bestanden tegelijk afdrukken...
✏ Inhoud bewerken: Batch zoeken en vervangen over meerdere bestanden / Formaat van alle afbeeldingen wijzigen / Tabelrijen en -kolommen transponeren / Converteer tabel naar tekst...
🧹 Moeiteloos schoon: Veeg weg Extra ruimtes / Sectie-onderbrekingen / Alle koppen / Tekstvakken / hyperlinks / Ga voor meer verwijdergereedschappen naar onze Groep verwijderen...
➕ Creatieve invoegingen: Invoegen Duizend scheidingstekens / Vink vakjes aan / Radio knoppen / QR Code / Barcode / Diagonale lijntabel / Vergelijking bijschrift / Bijschrift bij afbeelding / Tabel titel / Meerdere afbeeldingen / Ontdek meer in de Groep invoegen...
???? Precisieselecties: Vaststellen specifieke pagina's / tafels / vormen / kop paragrafen / Verbeter de navigatie met meer Selecteer functies...
⭐ Sterverbeteringen: Navigeer snel naar elke locatie / automatisch herhaalde tekst invoegen / naadloos schakelen tussen documentvensters / 11 Conversiehulpmiddelen...