Τρόπος μαζικής εισαγωγής πολλών εικόνων στο έγγραφο του Word

Σε αυτό το άρθρο, θα θέλαμε να σας προσφέρουμε τον τρόπο κατάτμησης πολλαπλών εικόνων στο έγγραφο του Word.

Μπορείτε να νιώσετε άνετα ενώ εργάζεστε με εικόνες στο Word. Μόλις εισαγάγετε μια εικόνα στο έγγραφο, ενδέχεται να χρειαστεί να αλλάξετε το μέγεθος ή να εισάγετε το όνομά της. Τι γίνεται με τη χρήση μιας μακροεντολής για την αυτόματη εκτέλεση της εργασίας;

Η μακροεντολή που πρόκειται να σας παρουσιάσουμε είναι ικανή να ακολουθεί συναρτήσεις:

1. Πρώτον, εισάγει τον ακριβή αριθμό εικόνων που καθορίζετε σε κάθε σελίδα.
2. Δεύτερον, εισάγει το όνομα κάτω από κάθε εικόνα.
3. Τρίτον, αλλάζει το μέγεθος των εικόνων σύμφωνα με τους αριθμούς μεγέθους που εισάγετε.

Τώρα ας δούμε πώς μπορούμε να λειτουργήσουμε.

Μαζική εισαγωγή πολλών εικόνων στο έγγραφο

1. Πρώτα απ 'όλα, κανονίστε όλες τις εικόνες που θα εισαχθούν στον ίδιο φάκελο.
2. Στη συνέχεια, πατήστε "Alt + F11" για να καλέσετε τον επεξεργαστή VBA στο Word.
3. Στη συνέχεια κάντε κλικ στο "Κανονικό" έργο.
4. Στη συνέχεια, στη γραμμή μενού, κάντε κλικ στο «Εισαγωγή».
5. Και στο αναπτυσσόμενο μενού, επιλέξτε "Module".
6. Ανοίξτε τη λειτουργική μονάδα με διπλό κλικ και επικολλήστε τους ακόλουθους κωδικούς:

Sub InsertSpecificNumberOfPictureForEachPage()
  Dim StrFolder As String
  Dim strFile As String
  Dim objDoc As Document
  Dim dlgFile As FileDialog
  Dim objInlineShape As InlineShape
  Dim nResponse As Integer
  Dim strPictureNumber As Integer
  Dim strPictureSize As String
  Dim n As Integer  

  Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
  
  With dlgFile
    If .Show = -1 Then
      StrFolder = .SelectedItems(1) & "\"
    Else
      MsgBox ("No Folder is selected!")
      Exit Sub
    End If
  End With

  strFile = Dir(StrFolder & "*.*", vbNormal)
  strPictureNumber = InputBox("Input the number of the picture for each page", "Picture Number", "For exemple: 1")
  n = 1  

  While strFile <> ""
    Selection.InlineShapes.AddPicture FileName:=StrFolder & strFile, LinkToFile:=False, SaveWithDocument:=True
    Selection.TypeParagraph
    Selection.Collapse Direction:=wdCollapsEnd
    Selection.TypeText Text:=Left(strFile, InStrRev(strFile, ".") - 1)
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    If ActiveDocument.InlineShapes.Count = strPictureNumber * n Then
      Selection.InsertNewPage
      Selection.TypeBackspace
      n = n + 1
    End If
    Selection.TypeParagraph
    strFile = Dir()
  Wend

  For Each objInlineShape In ActiveDocument.InlineShapes
    objInlineShape.Select
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
  Next objInlineShape

  nResponse = MsgBox("Do you want to resize all pictures?", 4, "Resize Picture")
  If nResponse = 6 Then
    strPictureSize = InputBox("Input the height and width of the picture, seperated by comma", "Height and Width", "For exemple:500,500")
    For Each objInlineShape In ActiveDocument.InlineShapes
      objInlineShape.Height = Split(strPictureSize, ",")(0)
      objInlineShape.Width = Split(strPictureSize, ",")(1)
    Next objInlineShape
  End If
End Sub

7. Στη συνέχεια κάντε κλικ στο "Εκτέλεση" ή πατήστε "F5".
8. Κατά την εκτέλεση της μακροεντολής, θα εμφανιστεί το παράθυρο "Αναζήτηση". Απλώς επιλέξτε το φάκελο που κρατάτε τις εικόνες στο βήμα 1 και κάντε κλικ στο "OK".
9. Στη συνέχεια, στο πλαίσιο "Αριθμός εικόνας", εισαγάγετε έναν αριθμό που αντιπροσωπεύει τον συνολικό αριθμό εικόνων που θέλετε σε μία σελίδα. Και κάντε κλικ στο "OK" για να συνεχίσετε.
10. Στο πλαίσιο "Αλλαγή μεγέθους εικόνας", κάντε κλικ στο "Ναι" για αλλαγή μεγέθους όλων των εικόνων και "Όχι" για ακύρωση.
11. Τώρα στο πλαίσιο "Ύψος και πλάτος", εισαγάγετε τιμές και χρησιμοποιήστε κόμμα για διαχωρισμό. Θυμηθείτε να εισαγάγετε πρώτα το ύψος και μετά το πλάτος. Δεν υπάρχει χώρος μετά από κόμμα.
12. Ομοίως, κάντε κλικ στο "OK" για να προχωρήσετε.

Τώρα υπάρχουν 2 εικόνες σε μία σελίδα και η καθεμία έχει το όνομά της κάτω από αυτήν. Εδώ είναι το αποτέλεσμα:

Παρακολουθήστε την ακεραιότητα των δεδομένων

Υπάρχει πάντα ο κίνδυνος απώλειας δεδομένων ή παραβίασης με κάποιο τρόπο. Αυτό σημαίνει ότι πρέπει να ελέγχουμε την ακεραιότητα των δεδομένων τακτικά. Και μόλις βρούμε κανένα σημάδι Βλάβη λέξεων, ο καλύτερος τρόπος για να ανακτήσετε δεδομένα είναι να πάρετε ένα εργαλείο επιδιόρθωσης.

Εισαγωγή συγγραφέα:

Η Vera Chen είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων Ανάκτηση του Excel pdf επισκευή προϊόντων λογισμικού. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com