Sub Bild_Einfuegen(ByVal Pfad As String, ByVal x As Integer, ByVal y As _
    Integer)
        Dim shp As Word.InlineShape
        shp = m_wdApp.Selection.InlineShapes.AddPicture(FileName:=Pfad, _
          LinkToFile:=False, SaveWithDocument:=True)
        With shp
            .LockAspectRatio = False
            .Width = 200
            .Height = 210
        End With
    End Sub
 
 
 
  Private Sub CoverDruckenToolStripMenuItem_Click(ByVal sender As _
    System.Object, ByVal e As System.EventArgs) Handles _
    CoverDruckenToolStripMenuItem.Click
        SaveFormClientRect1(Me, Application.StartupPath & "\Projekte\Cover.jpg")
 
        Dateizugriff()
          For i= to 100
                Bild_Einfuegen(ToolStripMenuItem6.Text & "Titel" & i  & ".jpg", _
                  1, 1)
                NeueZeile(5)    
           Next
           GeheAnsEnde()
End sub

Gruss Caddy