Πώς να εισαγάγετε τη διαδρομή αρχείου και το όνομα αρχείου χωρίς επέκταση στο έγγραφο του Word;
Κανονικά, μπορούμε να εισάγουμε το όνομα αρχείου ή τη διαδρομή αρχείου και το όνομα στο έγγραφο του Word χρησιμοποιώντας τη συνάρτηση πεδίου Όνομα αρχείου, αλλά, αυτό το εισαγόμενο όνομα αρχείου συμπεριλαμβανομένης της επέκτασης αρχείου docx ή doc. Πώς θα μπορούσατε να εισαγάγετε το όνομα αρχείου ή τη διαδρομή αρχείου και το όνομα χωρίς επέκταση;
Εισαγάγετε τη διαδρομή αρχείου και το όνομα ή το όνομα αρχείου χωρίς επέκταση χρησιμοποιώντας τον κώδικα VBA
Για να εισαγάγετε το όνομα αρχείου χωρίς επέκταση στο έγγραφο του Word, εφαρμόστε τον ακόλουθο κώδικα VBA:
1. Τοποθετήστε τον κέρσορα σε ένα μέρος όπου θέλετε να εισαγάγετε τη διαδρομή και το όνομα του αρχείου χωρίς επέκταση.
2. Στη συνέχεια, κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
3. Και μετά, κάντε κλικ στο Κύριο θέμα > Μονάδα μέτρησης, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στην ανοιχτή κενή ενότητα.
Κωδικός VBA: Εισαγωγή διαδρομής και ονόματος αρχείου χωρίς επέκταση:
Sub InsertFileNameAndPath()
Dim xPathName As String
Dim xDotPos As Integer
With Application.ActiveDocument
If Len(.Path) = 0 Then .Save
xDotPos = VBA.InStrRev(.FullName, ".")
xPathName = VBA.Left(.FullName, xDotPos - 1)
End With
Application.Selection.TypeText xPathName
End Sub
4. Στη συνέχεια πατήστε F5 κλειδί για την εκτέλεση αυτού του κώδικα και η διαδρομή και το όνομα του αρχείου έχουν εισαχθεί στο έγγραφο χωρίς επέκταση, δείτε το στιγμιότυπο οθόνης:
Note: Εάν θέλετε απλώς να εισαγάγετε το όνομα του αρχείου χωρίς επέκταση στο έγγραφο, θα πρέπει να εφαρμόσετε αυτόν τον κωδικό:
Κωδικός VBA: Εισαγωγή ονόματος αρχείου μόνο χωρίς επέκταση:
Sub InsertFileNameOnly()
Dim xPathName As String
Dim xDotPos As Integer
With Application.ActiveDocument
If Len(.Path) = 0 Then .Save
xDotPos = VBA.InStrRev(.Name, ".")
xPathName = VBA.Left(.Name, xDotPos - 1)
End With
Application.Selection.TypeText xPathName
End Sub
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Kutools για το Word - Βελτιώστε την εμπειρία σας στο Word με το Over 100 Αξιοσημείωτα χαρακτηριστικά!
🤖 Kutools AI Assistant: Μεταμορφώστε το γραπτό σας με AI - Δημιουργία Περιεχομένου / Ξαναγράψτε το κείμενο / Συνοψίστε τα έγγραφα / Ζητήστε πληροφορίες με βάση το Έγγραφο, όλα μέσα στο Word
📘 Κυριαρχία εγγράφων: Διαίρεση σελίδων / Συγχώνευση εγγράφων / Εξαγωγή επιλογής σε διάφορες μορφές (PDF/TXT/DOC/HTML...) / Μαζική μετατροπή σε PDF / Εξαγωγή σελίδων ως εικόνες / Εκτύπωση πολλών αρχείων ταυτόχρονα...
✏ Επεξεργασία Περιεχομένων: Μαζική εύρεση και αντικατάσταση σε πολλά αρχεία / Αλλαγή μεγέθους όλων των εικόνων / Μεταφορά σειρών και στηλών πίνακα / Μετατροπή πίνακα σε κείμενο...
🧹 Καθαρισμός χωρίς κόπο: Σαρώστε μακριά Επιπλέον χώροι / Διακοπές ενότητας / Όλες οι κεφαλίδες / Κουτιά κειμένου / Υπερ-συνδέσεις / Για περισσότερα εργαλεία αφαίρεσης, κατευθυνθείτε στο δικό μας Κατάργηση ομάδας...
➕ Δημιουργικά ένθετα: Εισάγετε Χιλιάδες Διαχωριστές / Πλαίσια ελέγχου / Κουμπιά ραδιοφώνου / QR Code / barcode / Διαγώνιος γραμμικός πίνακας / Λεζάντα εξίσωσης / Λεζάντα εικόνας / Λεζάντα πίνακα / Πολλαπλές εικόνες / Ανακαλύψτε περισσότερα στο Εισαγωγή ομάδας...
🔍 Επιλογές Ακρίβειας: Επισήμανση συγκεκριμένες σελίδες / πίνακες / σχήματα / επικεφαλίδες παραγράφους / Βελτιώστε την πλοήγηση με περισσότερο Επιλέξτε χαρακτηριστικά...
⭐ Βελτιώσεις αστεριών: Πλοηγηθείτε γρήγορα σε οποιαδήποτε τοποθεσία / αυτόματη εισαγωγή επαναλαμβανόμενου κειμένου / εναλλαγή μεταξύ των παραθύρων εγγράφων / 11 Εργαλεία μετατροπής...