Word'de bir sayfaya birden fazla resim eklemek için aşağıdaki yöntemler kullanılabilir: Kes-yapıştır yöntemi: ``` 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