Σε αυτήν την ανάρτηση, θα επικεντρωθούμε στο να σας παρουσιάσουμε 2 έξυπνους τρόπους για να μετονομάσετε γρήγορα το έγγραφό σας στο Word.
Κάθε τόσο, κατά τη σύνταξη στο Word, θα αλλάζουμε συνεχώς το όνομα του αρχείου. Ωστόσο, κάθε φορά, πρέπει να κλείνουμε το έγγραφο πριν μπορέσουμε να το μετονομάσουμε. Αυτό δεν είναι καθόλου βολικό. Από προεπιλογή, δεν μπορούμε να μετονομάσουμε ένα ανοιχτό αρχείο. Αλλά με τη βοήθεια μιας μακροεντολής, μπορεί να γίνει.
Ακολουθούν 2 μακροεντολές που μπορούν να αντιμετωπίσουν ένα τέτοιο ζήτημα.
Μέθοδος 1: Μετονομασία ενός εγγράφου στο Word
- Πρώτα απ 'όλα, πατήστε την καρτέλα "Προγραμματιστής" και στη συνέχεια την καρτέλα "Visual Basic" για να ανοίξετε τον επεξεργαστή VBA του Word.
- Στη συνέχεια κάντε κλικ στο "Κανονικό" έργο.
- Στη συνέχεια, κάντε κλικ στο «Εισαγωγή» και επιλέξτε «Ενότητα».
- Κάντε διπλό κλικ στη νέα μονάδα για να ανοίξετε την περιοχή κωδικοποίησης και να επικολλήσετε τους παρακάτω κωδικούς εκεί:
Sub RenameDocument()
Dim strDocName As String, strDocPath As String
Dim strNewDocName As String
Dim KillFile As String
' Get the current doc name.
strDocName = ActiveDocument.FullName
strDocPath = ActiveDocument.Path
If strDocPath = "" Then
MsgBox ("This document hasn't been saved. You can't rename it.")
Exit Sub
End If
' Pop up an input box for new name.
strNewDocName = InputBox("Enter a new name for this document:", "Rename document", strDocName)
' Save the doc with newly entered name.
ActiveDocument.SaveAs2 FileName:=strDocPath & "\" & strNewDocName
' Delete the doc with original name.
KillFile = strDocName
Kill KillFile
End Sub
- Τώρα κάντε κλικ στο "Run" ή πατήστε "F5".
- Θα εμφανιστεί ένα πλαίσιο εισαγωγής. Απλώς πληκτρολογήστε ένα νέο όνομα στο πλαίσιο κειμένου και κάντε κλικ στο "OK".
Τώρα το έγγραφο θα αποθηκευτεί στο ίδιο μέρος με νέο όνομα. Και η εκτέλεση της μακροεντολής θα διαγράψει το αρχικό αρχείο.
Μέθοδος 2: Μετονομασία εγγράφου και Προσάρτηση πληροφοριών ημερομηνίας
Σε πολλές περιπτώσεις, ένα έγγραφο θα μετονομαστεί με την ημερομηνία κατά την οποία γίνεται η αναθεώρηση. Υπό αυτές τις συνθήκες, το κύριο μέρος ενός ονόματος αρχείου παραμένει το ίδιο μόνο με μια συμβολοσειρά ημερομηνίας που ακολουθεί. Για παράδειγμα, εδώ είναι ένα έγγραφο χωρίς συμβολοσειρά ημερομηνίας.
Για να το προσθέσουμε, μπορούμε να εκτελέσουμε αυτήν τη μακροεντολή:
Sub RenameDocumentWithDate()
Dim strDocName, strDocNameNoExten, strDocFullName, strDocPath As String
Dim strNewDocName As String
Dim KillFile As String
Dim strDate As String
' Get the current doc name.
strDocName = ActiveDocument.Name
strDocFullName = ActiveDocument.FullName
strDocNameNoExten = Left(strDocName.Name, Len(strDocName.Name) - 5)
strDocPath = ActiveDocument.Path
strDate = Format(Date, "mm - dd - yyyy")
If strDocPath = "" Then
MsgBox ("This document hasn't been saved. You can't rename it.")
Exit Sub
End If
' Save the doc in new name with date.
ActiveDocument.SaveAs2 FileName:=strDocPath & "\" & strDocNameNoExten & " " & strDate
KillFile = strDocFullName
Kill KillFile
End Sub
Μπορείτε να ακολουθήσετε τα ακριβή βήματα στη μέθοδο 1 για να εγκαταστήσετε και να εκτελέσετε την παραπάνω μακροεντολή. Θα λειτουργήσει όμορφα. Θα δείτε ότι η τρέχουσα συμβολοσειρά ημερομηνίας ακολουθεί το αρχικό όνομα, όπως παρακάτω:
Λύση για την καταστροφή εγγράφων του Word
Δεν μπορούμε να αποτρέψουμε την καταστροφή εγγράφων με μια εφάπαξ μέθοδο. Αυτό που μπορούμε να κάνουμε είναι να δημιουργήσουμε αντίγραφα ασφαλείας και να αποφύγουμε τα σφάλματα των χρηστών όσο το δυνατόν περισσότερο. Ένα από τα πιο σημαντικά σημεία είναι να εξοικειωθούμε με το τι πρέπει να κάνουμε αφού ένα έγγραφο καταστραφεί. Η σωστή απάντηση είναι να αποκτήσουμε ένα ανάκτηση εγγράφων εργαλείο το συντομότερο δυνατό.
Εισαγωγή συγγραφέα:
Η Vera Chen είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων Βλάβη στο Excel και pdf επισκευή προϊόντων λογισμικού. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com