Πώς να αποθηκεύσετε το έγγραφο του 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. Και στη συνέχεια, απλά πρέπει να πληκτρολογήσετε το δικό σας όνομα αρχείου όπως χρειάζεστε, δείτε το στιγμιότυπο οθόνης:
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Kutools για το Word - Βελτιώστε την εμπειρία σας στο Word με το Over 100 Αξιοσημείωτα χαρακτηριστικά!
🤖 Kutools AI Assistant: Μεταμορφώστε το γραπτό σας με AI - Δημιουργία Περιεχομένου / Ξαναγράψτε το κείμενο / Συνοψίστε τα έγγραφα / Ζητήστε πληροφορίες με βάση το Έγγραφο, όλα μέσα στο Word
📘 Κυριαρχία εγγράφων: Διαίρεση σελίδων / Συγχώνευση εγγράφων / Εξαγωγή επιλογής σε διάφορες μορφές (PDF/TXT/DOC/HTML...) / Μαζική μετατροπή σε PDF / Εξαγωγή σελίδων ως εικόνες / Εκτύπωση πολλών αρχείων ταυτόχρονα...
✏ Επεξεργασία Περιεχομένων: Μαζική εύρεση και αντικατάσταση σε πολλά αρχεία / Αλλαγή μεγέθους όλων των εικόνων / Μεταφορά σειρών και στηλών πίνακα / Μετατροπή πίνακα σε κείμενο...
🧹 Καθαρισμός χωρίς κόπο: Σαρώστε μακριά Επιπλέον χώροι / Διακοπές ενότητας / Όλες οι κεφαλίδες / Κουτιά κειμένου / Υπερ-συνδέσεις / Για περισσότερα εργαλεία αφαίρεσης, κατευθυνθείτε στο δικό μας Κατάργηση ομάδας...
➕ Δημιουργικά ένθετα: Εισάγετε Χιλιάδες Διαχωριστές / Πλαίσια ελέγχου / Κουμπιά ραδιοφώνου / QR Code / barcode / Διαγώνιος γραμμικός πίνακας / Λεζάντα εξίσωσης / Λεζάντα εικόνας / Λεζάντα πίνακα / Πολλαπλές εικόνες / Ανακαλύψτε περισσότερα στο Εισαγωγή ομάδας...
🔍 Επιλογές Ακρίβειας: Επισήμανση συγκεκριμένες σελίδες / πίνακες / σχήματα / επικεφαλίδες παραγράφους / Βελτιώστε την πλοήγηση με περισσότερο Επιλέξτε χαρακτηριστικά...
⭐ Βελτιώσεις αστεριών: Πλοηγηθείτε γρήγορα σε οποιαδήποτε τοποθεσία / αυτόματη εισαγωγή επαναλαμβανόμενου κειμένου / εναλλαγή μεταξύ των παραθύρων εγγράφων / 11 Εργαλεία μετατροπής...