• Kes-yapıştır yöntemi 1. Tüm resimler aynı klasörde olacak şekilde düzenlenir 3. Ardından, "Alt + F11" tuşlarına basarak VBA düzenleyicisi açılır ve "Normal" projesi seçilir 3. "Ekle" menüsünden "Modül" seçilir ve açılan modüle aşağıdaki kod yapıştırılır 3:

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
  
  dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
  
  If .Show = -1 Then
     StrFolder = .SelectedItems(1) & "\"
  Else
     MsgBox ("Hiçbir Klasör seçilmedi!")
     Exit Sub
  End If
  
  strFile = Dir(StrFolder & "*.*", vbNormal)
  strPictureNumber = InputBox("Her sayfa için resim numarasını girin", "Resim Numarası", "Örnek: 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
     ActiveDocument.InlineShapes.Count = strPictureNumber * n
     Selection.InsertNewPage
     Selection.TypeBackspace
     n = n + 1
  End If
  
  Selection.TypeParagraph
  strFile = Dir()
  
  For Each objInlineShape In ActiveDocument.InlineShapes
     objInlineShape.Select
     Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
  Next objInlineShape
  
  nResponse = M
Kopyala