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

Κανονικά, μπορούμε να εισάγουμε το όνομα αρχείου ή τη διαδρομή αρχείου και το όνομα στο έγγραφο του Word χρησιμοποιώντας τη συνάρτηση πεδίου Όνομα αρχείου, αλλά, αυτό το εισαγόμενο όνομα αρχείου συμπεριλαμβανομένης της επέκτασης αρχείου docx ή doc. Πώς θα μπορούσατε να εισαγάγετε το όνομα αρχείου ή τη διαδρομή αρχείου και το όνομα χωρίς επέκταση;

Εισαγάγετε τη διαδρομή αρχείου και το όνομα ή το όνομα αρχείου χωρίς επέκταση χρησιμοποιώντας τον κώδικα VBA

Εισαγάγετε τη διαδρομή αρχείου και το όνομα ή το όνομα αρχείου χωρίς επέκταση χρησιμοποιώντας τον κώδικα 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

Συνιστώμενα εργαλεία παραγωγικότητας του Word