Kuinka tallentaa Word-asiakirja nykyisellä päivämäärällä tiedostonimessä?
Kirjailija: Xiaoyang Viimeksi muokattu: 2024-08-26
Jos sinun on lisättävä nykyinen päivämäärä tiedostonimeen automaattisesti, kun tallennat Word-asiakirjan, kuinka voit käsitellä tätä tehtävää Word-tiedostossa?
Tallenna Word-asiakirja nykyisellä päivämäärällä tiedostonimessä VBA-koodilla
Tallenna Word-asiakirja nykyisellä päivämäärällä tiedostonimessä VBA-koodilla
Jos haluat lisätä nykyisen päivämäärän automaattisesti tiedostonimeen tallentaessasi Word-asiakirjaa, toimi seuraavasti:
1. Pidä painettuna ALT + F11 avaimet avaamaan Microsoft Visual Basic for Applications ikkunassa.
2. Ja sitten, napsauta liite > Moduulit, kopioi ja liitä alla oleva koodi avautuvaan tyhjään moduuliin:
VBA-koodi: Tallenna Word-asiakirja nykyisellä päivämäärällä tiedostonimessä
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. Kun olet liittänyt koodin moduuliin, paina F5 avain tämän koodin suorittamiseen, ja a Tallenna nimellä ikkuna tulee näkyviin, ja nykyinen päivämäärä näkyy automaattisesti Tiedoston nimi tekstiruutu, katso kuvakaappaus:
4. Ja sitten sinun tarvitsee vain kirjoittaa oma tiedostonimesi tarpeen mukaan, katso kuvakaappaus:
Tee enemmän lyhyemmässä ajassa tekoälyllä tehostettujen Wordin Kutools-työkalujen avulla
Kutools for Word ei ole vain joukko työkaluja - se on älykäs ratkaisu, joka on suunniteltu parantamaan tuottavuuttasi. Tekoälyohjattujen ominaisuuksien ja tärkeimpien ominaisuuksien ansiosta Kutools auttaa sinua saavuttamaan enemmän lyhyemmässä ajassa:
- Tee yhteenveto, kirjoita uudelleen, kirjoita ja käännä sisältö välittömästi.
- Oikoluku tekstiä reaaliajassa kieliopin, välimerkkien ja tyyliehdotusten avulla kirjoittaessasi.
- Muotoile ja käännä sisältöä pitäen samalla asettelun, tyylin ja rakenteen koskemattomana.
- Käännä sisältösi helposti yli 40 kielelle ja laajenna kattavuuttasi maailmanlaajuisesti.
- Saat välitöntä apua ja älykkäitä oivalluksia nykyisen asiakirjasi sisältöön perustuen.
- Kysy, kuinka suoritat tehtävän - kuten poistat osion taukoja - ja tekoäly opastaa sinua tai tekee sen puolestasi.
- Poista arkaluontoiset tai luottamukselliset tiedot sekunneissa varmistaaksesi täydellisen yksityisyyden.
- Kaikki työkalut toimivat saumattomasti Wordin sisällä, aina käden ulottuvilla.
- Luo, tarkenna, käännä, tee yhteenveto ja suojaa asiakirjoja vaivattomasti.
- Paranna kielioppia, selkeyttä ja sävyä kirjoittaessasi reaaliajassa.
- Muotoile ja käännä sisältöä ilman asettelua tai muotoilun muutoksia.
- Kysy, kuinka suoritat tehtävän - kuten poistat osion taukoja - ja tekoäly opastaa sinua tai tekee sen puolestasi.
- Kaikki työkalut toimivat saumattomasti Wordin sisällä, aina käden ulottuvilla.
Lue lisää Kutools for Wordista Lataa nyt
Parhaat toimiston tuottavuustyökalut
Kutools for Word - Yli 100 Wordin työkalua
