Πώς να αποθηκεύσετε το έγγραφο του Word με την τρέχουσα ημερομηνία στο όνομα αρχείου;

Εάν πρέπει να προσθέσετε αυτόματα την τρέχουσα ημερομηνία στο όνομα αρχείου κατά την αποθήκευση ενός εγγράφου Word, πώς θα μπορούσατε να αντιμετωπίσετε αυτήν την εργασία στο αρχείο Word;

Αποθηκεύστε ένα έγγραφο του Word με την τρέχουσα ημερομηνία στο όνομα αρχείου με κωδικό VBA

---

Αποθηκεύστε ένα έγγραφο του Word με την τρέχουσα ημερομηνία στο όνομα αρχείου με κωδικό VBA

Για να προσθέσετε αυτόματα την τρέχουσα ημερομηνία στο όνομα αρχείου κατά την αποθήκευση του εγγράφου Word, κάντε τα ακόλουθα βήματα:

1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Και μετά, κάντε κλικ στο Κύριο θέμα > Μονάδα μέτρησης, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στην κενή κενή ενότητα:

Κωδικός VBA: Αποθηκεύστε ένα έγγραφο του Word με την τρέχουσα ημερομηνία στο όνομα αρχείου

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. Αφού επικολλήσετε τον κώδικα στη μονάδα, πατήστε F5 κλειδί για την εκτέλεση αυτού του κώδικα, και a Αποθήκευση ως εμφανίζεται το παράθυρο με την τρέχουσα ημερομηνία αυτόματα στο Όνομα αρχείου πλαίσιο κειμένου, δείτε το στιγμιότυπο οθόνης:

4. Και στη συνέχεια, απλά πρέπει να πληκτρολογήσετε το δικό σας όνομα αρχείου όπως χρειάζεστε, δείτε το στιγμιότυπο οθόνης: