Note: The other languages of the website are Google-translated. Back to English

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

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

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

doc εισαγάγετε εικόνες με όνομα αρχείου 2


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

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

Kutools για το Word : με περισσότερα από 100 εύχρηστα πρόσθετα Word, δωρεάν δοκιμή χωρίς περιορισμό σε 60 ημέρες. 

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

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

doc εισαγάγετε εικόνες με όνομα αρχείου 3

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

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

doc εισαγάγετε εικόνες με όνομα αρχείου 4

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

doc εισαγάγετε εικόνες με όνομα αρχείου 5

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


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

 

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

  • Περίπλοκες και επαναλαμβανόμενες λειτουργίες μπορούν να γίνουν μία φορά επεξεργασία σε δευτερόλεπτα.
  • Εισαγάγετε πολλές εικόνες στους φακέλους στο έγγραφο του Word ταυτόχρονα.
  • Συγχώνευση και συνδυασμός πολλαπλών αρχείων Word σε όλους τους φακέλους σε ένα με την επιθυμητή σειρά.
  • Διαχωρίστε το τρέχον έγγραφο σε ξεχωριστά έγγραφα σύμφωνα με την επικεφαλίδα, το τμήμα αλλαγής ή άλλα κριτήρια.
  • Μετατροπή αρχείων μεταξύ Doc και Docx, Docx και PDF, συλλογή εργαλείων για κοινές μετατροπές και επιλογή και ούτω καθεξής ...
Σχόλια (7)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
buenas noches amigo me ha servido mucho su información sinembargo me surge una duda cree que es posible incertar imagenes en word de la misma manera pero dentro de celdas incertadas;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ποια γραμμή κώδικα θα αλλάζατε και πώς να γράψετε τη διαδρομή του αρχείου πριν από την εικόνα, γνωστή και ως λεζάντα (όνομα αρχείου) είναι πάνω και όχι κάτω.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Με Επιλογή
.Text = xFile
.InlineShapes.AddPicture xPath & "\" & xFile, False, True
.InsertAfter vbCrLf
.MoveDown wdLine

Τέλος με
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πρέπει να προσθέσετε αυτό το .MoveDown wdLine μετά το .Text=xFile
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ουάου αυτό είναι υπέροχο! Χρειαζόμουν μόνο το όνομα του αρχείου, οπότε διέγραψα τα "xPath & "\" &" από τη γραμμή .Text και αυτό λειτούργησε τέλεια. Ευχαριστω για ΑΥΤΟ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Παρουσιάζεται πρόβλημα όταν το όνομα αρχείου που πρόκειται να προστεθεί υπερβαίνει το 10.

pic1
pic10
pic11
pic12
pic2
pic3
pic4
εικόνα 5...
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
αλλάξτε το όνομα του αρχείου σε 01, 02, 03 και θα λειτουργήσει
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL