Jak wsadowo wstawiać wiele zdjęć do dokumentu Word

W tym artykule chcielibyśmy zaoferować Ci sposób wsadowego wstawiania wielu zdjęć do dokumentu Word.

Możesz czuć się komfortowo podczas pracy z obrazami w programie Word. Po wstawieniu obrazu do dokumentu może być konieczna ręczna zmiana jego rozmiaru lub wpisanie jego nazwy. Co powiesz na użycie makra do automatycznego wykonania zadania?

Makro, które Wam zamierzamy zaprezentować, może spełniać następujące funkcje:

1. Po pierwsze, wstawia dokładną liczbę zdjęć, które określisz na każdej stronie.
2. Po drugie, wstawia nazwę pod każdym zdjęciem.
3. Po trzecie, zmienia rozmiar zdjęć zgodnie z wprowadzonymi numerami rozmiarów.

Teraz spójrzmy, jak sprawimy, że to zadziała.

Wstaw zbiorczo wiele zdjęć do dokumentu

1. Przede wszystkim ułóż wszystkie zdjęcia do wstawienia w tym samym folderze.
2. Następnie naciśnij „Alt + F11”, aby wywołać edytor VBA w programie Word.
3. Następnie kliknij „Normalny” projekt.
4. Następnie na pasku menu kliknij „Wstaw”.
5. Z menu rozwijanego wybierz „Moduł”.
6. Otwórz moduł, klikając dwukrotnie i wklej następujące kody:

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. Następnie kliknij „Uruchom” lub naciśnij „F5”.
8. Podczas uruchamiania makra pojawi się okno „Przeglądaj”. Po prostu wybierz folder, w którym przechowujesz zdjęcia w kroku 1 i kliknij „OK”.
9. Następnie w polu „Numer zdjęcia” wprowadź liczbę reprezentującą całkowitą liczbę zdjęć, które chcesz umieścić na jednej stronie. I kliknij „OK”, aby kontynuować.
10. W polu „Zmień rozmiar obrazu” kliknij „Tak”, aby zmienić rozmiar wszystkich obrazów i „Nie”, aby anulować.
11. Teraz w polu „Wysokość i szerokość” wprowadź wartości i rozdziel je przecinkami. Pamiętaj, aby najpierw wpisać wysokość, a następnie szerokość. Po przecinku nie ma spacji.
12. Podobnie kliknij „OK”, aby przejść dalej.

Teraz na jednej stronie znajdują się 2 zdjęcia, a poniżej każdy ma swoją nazwę. Oto wynik:

Miej oko na integralność danych

Zawsze istnieje ryzyko utraty danych lub ich w jakiś sposób narażonych na szwank. Oznacza to, że musimy regularnie sprawdzać integralność danych. A kiedy znajdziemy jakiekolwiek oznaki Szkoda słównajlepszym sposobem na odzyskanie danych jest skorzystanie z narzędzia naprawczego.

Wprowadzenie autora:

Vera Chen jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym Odzyskiwanie programu Excel i pdf oprogramowanie do naprawy. po więcej informacji odwiedź www.datanumen.com