Note: The other languages of the website are Google-translated. Back to English
Σύνδεση  \/ 
x
or
x
Εγγραφή  \/ 
x

or

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

doc εισαγάγετε το όνομα αρχείου χωρίς επέκταση 1

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

 

Kutools For Word - Περισσότερες από 100 προηγμένες δυνατότητες για το Word, εξοικονομήστε χρόνο 50%

  • Περίπλοκες και επαναλαμβανόμενες λειτουργίες μπορούν να γίνουν μία φορά επεξεργασία σε δευτερόλεπτα.
  • Εισαγάγετε πολλές εικόνες στους φακέλους στο έγγραφο του Word ταυτόχρονα.
  • Συγχώνευση και συνδυασμός πολλαπλών αρχείων Word σε όλους τους φακέλους σε ένα με την επιθυμητή σειρά.
  • Διαχωρίστε το τρέχον έγγραφο σε ξεχωριστά έγγραφα σύμφωνα με την επικεφαλίδα, το τμήμα αλλαγής ή άλλα κριτήρια.
  • Μετατροπή αρχείων μεταξύ Doc και Docx, Docx και PDF, συλλογή εργαλείων για κοινές μετατροπές και επιλογή και ούτω καθεξής ...

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.