Hallo allemaal,
Ik heb een tabel (zie onderaan dit verhaal) in Word 2010 en daarin zitten de onderstaande records.
Nu wil ik dat als bijv Bedrijfsnaam Z14 op de volgende pagina terecht komt, dat dan ook dit gedeelte daar terecht komt
Overige entiteit(en):
Bedrijfsnaam Z12
Bedrijfsnaam Z13
Zoals je kunt zien kunnen de records tussen "Overige entiteit(en):" en "Test" varieren.
Nu dacht ik er aan om de Pagina nummering te gebruiken, dus als "Overige entiteit(en):" op bladzijde 1 staat en "Test" op bladzijde 2, dat dan het geheel naar blz 2 gaat.
Ik heb dit geprobeerd, maar dat werkt niet:
Overige entiteit(en):
Bedrijfsnaam Z12
Bedrijfsnaam Z13
Bedrijfsnaam Z14
Bedrijfsnaam Z5
Test:
Overige entiteit(en):
Bedrijfsnaam Z20
Bedrijfsnaam Z22
Test:
Overige entiteit(en):
Bedrijfsnaam Z30
Test
Ik heb een tabel (zie onderaan dit verhaal) in Word 2010 en daarin zitten de onderstaande records.
Nu wil ik dat als bijv Bedrijfsnaam Z14 op de volgende pagina terecht komt, dat dan ook dit gedeelte daar terecht komt
Overige entiteit(en):
Bedrijfsnaam Z12
Bedrijfsnaam Z13
Zoals je kunt zien kunnen de records tussen "Overige entiteit(en):" en "Test" varieren.
Nu dacht ik er aan om de Pagina nummering te gebruiken, dus als "Overige entiteit(en):" op bladzijde 1 staat en "Test" op bladzijde 2, dat dan het geheel naar blz 2 gaat.
Ik heb dit geprobeerd, maar dat werkt niet:
Code:
With oTable
Rij2 = 1
For r = 1 To 200 Step 1
fnd = False
strString = oTable.Rows(r).Cells(1).Range
For Each c In .Rows(r).Cells
If InStr(c.Range.Text, "Overige") > 0 Then
fnd = True
Pagina1 = Selection.Information(wdActiveEndPageNumber)
Rij1 = r
End If
Next
For Each c In .Rows(r + 1).Cells
If InStr(c.Range.Text, "Test") > 0 Then
mfnd = True
Pagina2 = Selection.Information(wdActiveEndPageNumber)
Rij2 = r
End If
Next
If Pagina1 <> Pagina2 Then
'De rijnummer van de Pagina1 moet een page break krijgen
End If
Next
End With
Overige entiteit(en):
Bedrijfsnaam Z12
Bedrijfsnaam Z13
Bedrijfsnaam Z14
Bedrijfsnaam Z5
Test:
Overige entiteit(en):
Bedrijfsnaam Z20
Bedrijfsnaam Z22
Test:
Overige entiteit(en):
Bedrijfsnaam Z30
Test
Laatst bewerkt door een moderator: