Kako shraniti Wordov dokument s trenutnim datumom v ime datoteke?

Če morate pri shranjevanju Wordovega dokumenta samodejno dodati trenutni datum v ime datoteke, kako se lahko spoprimete s to nalogo v Wordovi datoteki?

Shranite Wordov dokument s trenutnim datumom v ime datoteke s kodo VBA

---

Shranite Wordov dokument s trenutnim datumom v ime datoteke s kodo VBA

Če želite samodejno dodati trenutni datum v ime datoteke med shranjevanjem Wordovega dokumenta, naredite naslednje:

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. In nato kliknite Vstavi > Moduli, kopirajte in prilepite spodnjo kodo v odprti prazen modul:

Koda VBA: Shranite Wordov dokument s trenutnim datumom v ime datoteke

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. Ko kodo prilepite v modul, pritisnite F5 tipko za zagon te kode in a Shrani kot s trenutnim datumom se samodejno prikaže okno v Ime datoteke besedilno polje, glej posnetek zaslona:

4. Nato morate vnesti svoje ime datoteke, kot potrebujete, si oglejte posnetek zaslona: