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

Στο έγγραφο του Word, μπορείτε να εισαγάγετε γρήγορα πολλές εικόνες ταυτόχρονα χρησιμοποιώντας τη λειτουργία Εισαγωγή. Αλλά, μερικές φορές, πρέπει να εισαγάγετε τη διαδρομή αρχείου και τα ονόματα ως λεζάντα κατά την εισαγωγή των εικόνων. Πώς θα μπορούσατε να αντιμετωπίσετε αυτήν την εργασία στο αρχείο Word;

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

Εισαγάγετε πολλές εικόνες με όνομα αρχείου χρησιμοποιώντας το Kutools για το Word

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

Ο ακόλουθος κωδικός VBA μπορεί να σας βοηθήσει να εισαγάγετε τη διαδρομή αρχείου και το όνομα ως λεζάντα κατά την εισαγωγή των εικόνων, κάντε το ως εξής:

1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Και μετά, κάντε κλικ στο Κύριο θέμα > Μονάδα μέτρησης, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στην κενή κενή ενότητα:

Κωδικός VBA: Εισαγωγή πολλών εικόνων με όνομα αρχείου:

Sub PicWithCaption()
    Dim xFileDialog As FileDialog
    Dim xPath, xFile As Variant
    On Error Resume Next
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    If xFileDialog.Show = -1 Then
        xPath = xFileDialog.SelectedItems.Item(1)
        If xPath <> "" Then
            xFile = Dir(xPath & "\*.*")
            Do While xFile <> ""
                If UCase(Right(xFile, 3)) = "PNG" Or _
                    UCase(Right(xFile, 3)) = "TIF" Or _
                    UCase(Right(xFile, 3)) = "JPG" Or _
                    UCase(Right(xFile, 3)) = "GIF" Or _
                    UCase(Right(xFile, 3)) = "BMP" Then
                    With Selection
                        .InlineShapes.AddPicture xPath & "\" & xFile, False, True
                        .InsertAfter vbCrLf
                        .MoveDown wdLine
                        .Text = xPath & "\" & xFile & Chr(10)
                        .MoveDown wdLine
                    End With
                End If
                xFile = Dir()
            Loop
        End If
    End If
End Sub

3. Στη συνέχεια πατήστε F5 για να εκτελέσετε αυτόν τον κώδικα, εμφανίζεται ένα παράθυρο αναζήτησης, επιλέξτε το φάκελο που περιέχει τις εικόνες που θέλετε να εισαγάγετε, δείτε το στιγμιότυπο οθόνης:

4. Στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί, όλες οι εικόνες στον επιλεγμένο φάκελο έχουν εισαχθεί στο έγγραφο του Word, και η διαδρομή και το όνομα του αρχείου εισάγονται ως λεζάντα, καλά, δείτε το στιγμιότυπο οθόνης:

Εισαγάγετε πολλές εικόνες με όνομα αρχείου χρησιμοποιώντας το Kutools για το Word

Εάν έχετε Kutools για το Word, Με τους εικόνες δυνατότητα, μπορείτε να εισαγάγετε γρήγορα πολλές εικόνες με διαδρομή αρχείου και όνομα στο έγγραφο του Word αμέσως.

Μετά την εγκατάσταση Kutools για το Word, κάντε το ως εξής:

1. Πατήστε Kutools > εικόνες, δείτε το στιγμιότυπο οθόνης:

2. Στο αναδυόμενο Εισαγωγή εικόνων πλαίσιο διαλόγου, κάντε τις παρακάτω λειτουργίες:

• (1.) Κάντε κλικ Προσθήκη αρχείων or Προσθήκη φακέλου κουμπί για να επιλέξετε τις εικόνες που θέλετε να εισαγάγετε.
• (2.) Στη συνέχεια, ελέγξτε Εισαγάγετε τη διαδρομή αρχείου κάθε εικόνας ως λεζάντα επιλογή στο αριστερό κάτω μέρος του παραθύρου διαλόγου.
• (3.) Και στη συνέχεια κάντε κλικ Κύριο θέμα κουμπί.

3. Αφού εισαγάγετε τις εικόνες, θα δείτε τη διαδρομή αρχείου κάθε εικόνας και το όνομα έχει εισαχθεί επίσης, δείτε το στιγμιότυπο οθόνης:

Κάντε κλικ για λήψη του Kutools for Word και δωρεάν δοκιμή τώρα!

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

Kutools για το Word - Βελτιώστε την εμπειρία σας στο Word με το Over 100 Αξιοσημείωτα χαρακτηριστικά!

🤖 Kutools AI Assistant: Μεταμορφώστε το γραπτό σας με AI - Δημιουργία Περιεχομένου  /  Ξαναγράψτε το κείμενο  /  Συνοψίστε τα έγγραφα  /  Ζητήστε πληροφορίες με βάση το Έγγραφο, όλα μέσα στο Word

📘 Κυριαρχία εγγράφων: Διαίρεση σελίδων  /  Συγχώνευση εγγράφων  /  Εξαγωγή επιλογής σε διάφορες μορφές (PDF/TXT/DOC/HTML...)  /  Μαζική μετατροπή σε PDF  /  Εξαγωγή σελίδων ως εικόνες  /  Εκτύπωση πολλών αρχείων ταυτόχρονα...

✏ Επεξεργασία Περιεχομένων: Μαζική εύρεση και αντικατάσταση σε πολλά αρχεία  /  Αλλαγή μεγέθους όλων των εικόνων  /  Μεταφορά σειρών και στηλών πίνακα  /  Μετατροπή πίνακα σε κείμενο...

🧹 Καθαρισμός χωρίς κόπο: Σαρώστε μακριά Επιπλέον χώροι  /  Διακοπές ενότητας  /  Όλες οι κεφαλίδες  /  Κουτιά κειμένου  /  Υπερ-συνδέσεις  / Για περισσότερα εργαλεία αφαίρεσης, κατευθυνθείτε στο δικό μας Κατάργηση ομάδας...

➕ Δημιουργικά ένθετα: Εισάγετε Χιλιάδες Διαχωριστές  /  Πλαίσια ελέγχου  /  Κουμπιά ραδιοφώνου  /  QR Code  /  barcode  /  Διαγώνιος γραμμικός πίνακας  /  Λεζάντα εξίσωσης  /  Λεζάντα εικόνας  /  Λεζάντα πίνακα  /  Πολλαπλές εικόνες  / Ανακαλύψτε περισσότερα στο Εισαγωγή ομάδας...

🔍 Επιλογές Ακρίβειας: Επισήμανση συγκεκριμένες σελίδες  /  πίνακες  /  σχήματα  /  επικεφαλίδες παραγράφους  / Βελτιώστε την πλοήγηση με περισσότερο Επιλέξτε χαρακτηριστικά...

⭐ Βελτιώσεις αστεριών: Πλοηγηθείτε γρήγορα σε οποιαδήποτε τοποθεσία  /  αυτόματη εισαγωγή επαναλαμβανόμενου κειμένου  /  εναλλαγή μεταξύ των παραθύρων εγγράφων  /  11 Εργαλεία μετατροπής...

???? Θέλετε να δοκιμάσετε αυτές τις δυνατότητες; Το Kutools για το Word προσφέρει α Δωρεάν δοκιμαστική περίοδο 60, χωρίς περιορισμούς! 🚀

Δωρεάν κατέβασμα     Δείτε Περισσότερα     Άμεση αγορά