Cara Batch Menyisipkan Banyak Gambar ke Dokumen Word Anda

Pada artikel ini, kami ingin menawarkan cara untuk memasukkan banyak gambar sekaligus ke dokumen Word Anda.

Anda bisa merasa nyaman saat bekerja dengan gambar di Word. Setelah Anda memasukkan gambar ke dalam dokumen, Anda mungkin harus mengubah ukurannya secara manual atau memasukkan namanya. Bagaimana dengan menggunakan makro untuk melakukan tugas secara otomatis?

Makro yang akan kami sajikan untuk Anda mampu melakukan fungsi berikut:

1. Pertama, ini menyisipkan jumlah gambar yang Anda tentukan di setiap halaman.
2. Kedua, ini menyisipkan nama di bawah setiap gambar.
3. Ketiga, mengubah ukuran gambar sesuai dengan nomor ukuran yang Anda masukkan.

Sekarang mari kita lihat bagaimana kita membuatnya bekerja.

Batch Sisipkan Beberapa Gambar ke Dokumen

1. Pertama-tama, atur semua gambar untuk disisipkan di bawah folder yang sama.
2. Kemudian tekan "Alt + F11" untuk menjalankan editor VBA di Word.
3. Selanjutnya klik proyek "Normal".
4. Kemudian di menu bar, klik "Sisipkan".
5. Dan pada menu drop-down, pilih "Module".
6. Buka modul dengan klik dua kali dan tempel kode berikut:

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. Kemudian klik "Run" atau tekan "F5".
8. Saat menjalankan makro, jendela "Jelajahi" akan muncul. Cukup pilih folder tempat Anda menyimpan gambar pada langkah 1 dan klik "OK".
9. Selanjutnya dalam kotak "Nomor Gambar", masukkan angka yang mewakili jumlah gambar yang Anda inginkan dalam satu halaman. Dan klik "OK" untuk melanjutkan.
10. Dalam kotak "Ubah Ukuran Gambar", klik "Ya" untuk mengubah ukuran semua gambar dan "Tidak" untuk membatalkannya.
11. Sekarang di kotak "Tinggi dan Lebar", masukkan nilai dan gunakan koma untuk memisahkan. Ingatlah untuk memasukkan tinggi dulu dan kemudian lebarnya. Tidak ada spasi setelah koma.
12. Demikian pula, klik "OK" untuk melanjutkan.

Sekarang ada 2 gambar dalam satu halaman dan masing-masing memiliki nama di bawahnya. Inilah hasilnya:

Awasi Integritas Data

Selalu ada risiko kehilangan data atau membahayakannya. Artinya, kami harus memeriksa integritas data secara rutin. Dan begitu kami menemukan tanda-tanda Kerusakan kata, cara terbaik untuk memulihkan data adalah dengan mendapatkan alat perbaikan.

Pengantar Penulis:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk Pemulihan Excel ke pdf memperbaiki produk perangkat lunak. Untuk informasi lebih lanjut kunjungi www.datanumen.com