Pagebreak gebruiken in een tabel zonder header

Status
Niet open voor verdere reacties.

greatmaze

Gebruiker
Lid geworden
20 nov 2014
Berichten
26
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:
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:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan