Word 문서에 여러 그림을 일괄 삽입하는 방법

워드 솔루션 2025 년 9 월 28 일

이 기사에서는 Word 문서에 여러 그림을 일괄 삽입하는 방법을 제공하고자합니다.

Word에서 그림으로 작업하는 동안 편안하게 느낄 수 있습니다. 문서에 그림을 삽입하면 수동으로 크기를 조정하거나 이름을 입력해야 할 수 있습니다. 매크로를 사용하여 작업을 자동으로 수행하는 것은 어떻습니까?

우리가 보여줄 매크로는 다음과 같은 기능을 할 수 있습니다 :

첫째, 각 페이지에 지정한 정확한 수의 그림을 삽입합니다.
둘째, 각 그림 아래에 이름을 삽입합니다.
셋째, 입력 한 크기 번호에 따라 사진의 크기를 조정합니다.

이제 어떻게 작동하는지 살펴 보겠습니다.

문서에 여러 그림 일괄 삽입

우선, 같은 폴더에 삽입 할 모든 사진을 정렬합니다.
그런 다음 "Alt + F11"을 눌러 Word에서 VBA 편집기를 호출합니다.
다음으로“Normal”프로젝트를 클릭하십시오.
그런 다음 메뉴 표시 줄에서 "삽입"을 클릭합니다.
드롭 다운 메뉴에서 "Module"을 선택합니다.
두 번 클릭하여 모듈을 열고 다음 코드를 붙여 넣으십시오.

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

그런 다음 "실행"을 클릭하거나 "F5"를 누르십시오.
매크로를 실행하는 동안 "찾아보기"창이 나타납니다. 1 단계에서 사진을 보관할 폴더를 선택하고 "확인"을 클릭하십시오.
다음으로 "사진 번호"상자에 한 페이지에 원하는 총 사진 수를 나타내는 숫자를 입력합니다. 계속하려면 "확인"을 클릭하십시오.
"사진 크기 조정"상자에서 "예"를 클릭하여 모든 사진의 크기를 조정하고 "아니오"를 클릭하여 취소합니다.
이제 "높이 및 너비"상자에 값을 입력하고 쉼표를 사용하여 구분합니다. 높이를 먼저 입력 한 다음 너비를 입력해야합니다. 쉼표 뒤에 공백이 없습니다.
마찬가지로 "확인"을 클릭하여 계속 진행합니다.