[VB.NET & MS Word] Probleem Picture Invoegen (2)

[ChroMe]

Yoo het probleem is ik heb meerdere pagina's en hij voegt de pictures enkel op de 1e pagina in.
Het gaat om attesten voor deelnemers van een happening, elke pagina is dus een attest, de tekst klopt maar de figuren worden allemaal op pagina 1 boven elkaar geladen

code:

    Dim oWord As Word.Application
    Dim oDoc As Word.Document
    Dim oPara1, oPara2, oPara3, oPara4 As Word.Paragraph
    Dim oPic1, oPic2, oPic3, oPic4 As Word.InlineShape
    Dim oRange As Word.Range

    'Start Word en opent een leeg document
    oWord = CreateObject("Word.Application")
    oWord.Visible = True
    oDoc = oWord.Documents.Add
    oDoc.PageSetup.PageHeight = 595.35 'Het blad liggend leggen
    oDoc.PageSetup.PageWidth = 841.995


    'Nieuwe paragraaf in begin van document
    'TITEL
    For i As Integer = 0 To 5
      oPara1 = oDoc.Content.Paragraphs.Add

      oPara1.Range.Font.Size = 32
      oPara1.Range.Font.Name = "Monotype Corsiva"
      oPara1.Range.Text = "Jefke Vermeulen"
      oPara1.Range.Font.Bold = True
      oPara1.Format.Alignment = WdParagraphAlignment.wdAlignParagraphCenter
      oDoc.Content.Paragraphs.Add() 'Enter in WORD
      oPara1.Range.Font.Size = 16
      oDoc.Content.Paragraphs.Add()
      oDoc.Content.Paragraphs.Add()
      oDoc.Content.Paragraphs.Add()

      oPara1.Range.Font.Size = 16
      oPara1.Range.Font.Name = "Tahoma"
      oPara1.Range.Text = "nam deel aan..."
      oPara1.Range.Font.Bold = True
      oPara1.Format.Alignment = WdParagraphAlignment.wdAlignParagraphCenter
      oDoc.Content.Paragraphs.Add() 'Enter in WORD
      oDoc.Content.Paragraphs.Add()
      oDoc.Content.Paragraphs.Add()

      oPara1.Range.Font.Size = 40
      oPara1.Range.Font.Name = "Tahoma"
      oPara1.Range.Text = txtTitel.Text
      oPara1.Range.Font.Bold = True
      oPara1.Format.Alignment = WdParagraphAlignment.wdAlignParagraphCenter
      oDoc.Content.Paragraphs.Add() 'Enter in WORD
      oPara1.Range.Font.Size = 16
      oDoc.Content.Paragraphs.Add()

      oPara1.Range.Font.Size = 16
      oPara1.Range.Font.Name = "Tahoma"
      oPara1.Range.Text = txtDatum.Text
      oPara1.Range.Font.Bold = True
      oPara1.Format.Alignment = WdParagraphAlignment.wdAlignParagraphCenter
      oDoc.Content.Paragraphs.Add() 'Enter in WORD
      oDoc.Content.Paragraphs.Add()
      oDoc.Content.Paragraphs.Add()
      oDoc.Content.Paragraphs.Add()
      oPara1.Range.Font.Size = 16
      oPara1.Range.Font.Name = "Tahoma"
      oPara1.Range.Text = txtInfo.Text
      oPara1.Range.Font.Bold = True
      oPara1.Format.Alignment = WdParagraphAlignment.wdAlignParagraphCenter
      oDoc.Content.Paragraphs.Add()
      oDoc.Content.Paragraphs.Add()
      oDoc.Content.Paragraphs.Add()
      oDoc.Content.Paragraphs.Add()
      oDoc.Content.Paragraphs.Add()
      oDoc.Content.Paragraphs.Add()
      oDoc.Content.Paragraphs.Add()
      oDoc.Content.Paragraphs.Add()
      oPara1.Range.Font.Size = 16

      'Logo1
      If (path1 <> "") Then
        'oDoc.Content.InlineShapes.AddPicture(path1)
        'oPic1 = oDoc.Content.InlineShapes.AddPicture(path1)
        oDoc.Shapes.AddPicture(FileName:=path1, Left:=0, Top:=0, Width:=120, Height:=120)

      End If

      'Logo2
      If (path2 <> "") Then
        oDoc.Shapes.AddPicture(FileName:=path2, Left:=572, Top:=0, Width:=120, Height:=120)
      End If

      'Handtekening1
      If (path3 <> "") Then
        oDoc.Shapes.AddPicture(FileName:=path3, Left:=0, Top:=330, Width:=120, Height:=120)
      End If
      'Handtekening2
      If (path4 <> "") Then
        oDoc.Shapes.AddPicture(FileName:=path4, Left:=286, Top:=330, Width:=120, Height:=120)
      End If
      'Handtekening3
      If (path5 <> "") Then
        oDoc.Shapes.AddPicture(FileName:=path5, Left:=572, Top:=330, Width:=120, Height:=120)
      End If
    Next

ik heb HEEL deze code zelf opgezocht en geschreven, ik wil niet dat men de code debugged, want ze werkt!!!!! lees dan eerst wat men probleem is voordat je m'n topic sluit
ik moet foto's op de 2e pagina krijgen en dit lukt me niet door deze lus

[ChroMe]

Dit is trouwens een onderdeeltje van een project voor school waar we al van oktober aan bezig zijn... dus zeg aub niet dat ik er eerst zelf moeite voor moet doen...

[curry684]

Welk gedeelte van whoami's post was niet helemaal duidelijk?

quote: http://gathering.tweakers...message/20335486#20335486

Lees even de quickstart, en open dan adhv die quickstart een nieuw topic.

Ik zie toch echt in die quickstart staan:
• Geef eerst globaal aan wat het probleem is
• Geef vervolgens aan waar je denkt dat het aan ligt
• Geef vervolgens aan wat je al geprobeerd hebt.
• Geef aan waarom je denkt dat dat niet klopt of geef aan waarom je denkt dat dat niet werkt.

En post alleen relevante code: 98 regels code zijn nooit relevant en maken je topic onleesbaar. Elimineer het probleem en presenteer ons de voorbewerkte uitsnede.