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

---

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

 

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

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

ΔΙΑΒΑΣΤΕ ΠΕΡΙΣΣΟΤΕΡΑ Κατεβάστε τώρα Αγορά