如何批量插入多個圖片到您的Word文檔

Word解決方案 2025 年 9 月 28 日

在本文中，我們想為您提供一種將多張圖片批量插入Word文檔的方法。

在Word中處理圖片時，您會感到很舒服。將圖片插入文檔後，可能必須手動調整其大小或在其周圍輸入其名稱。如何使用宏自動執行任務？

我們將向您呈現的宏具有以下功能：

首先，它會在每頁中插入您指定的確切圖片數量。
其次，在每張圖片下方插入名稱。
第三，它會根據您輸入的尺寸編號來調整圖片的尺寸。

現在，讓我們看看如何使其工作。

批量插入多張圖片到文檔

首先，安排所有圖片插入同一文件夾下。
然後按“ Alt + F11”以在Word中調用VBA編輯器。
接下來單擊“普通”項目。
然後在菜單欄上，單擊“插入”。
然後在下拉菜單上選擇“模塊”。
雙擊打開模塊並粘貼以下代碼：

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