Pagebreak bookmark

[basAwa]

Hallo allemaal,

Ik probeer een pagebreak in een Word document te zetten. Dit wil ik doen met behulp van een bookmark om zo op je juise plaats een nieuwe pagina te starten.

Het lukt mij helaas nog niet om een werkende code te maken.
Hieronder is een deel van mijn code.


For lItem = 0 To ListBox1.ListCount - 1


If lItem = 0 Then GoTo VLGNDE

Set SubKop = objword.ActiveDocument.Bookmarks("SubTechnischeGegevens").Range

With SubKop
.Collapse Direction:=wdCollapseEnd
.InsertBreak Type:=wdPageBreak
End With


'.Bookmarks("SubTechnischeGegevens").InsertBreak Type:=wdPageBreak

VLGNDE:
With objword.ActiveDocument
.Bookmarks("SubTechnischeGegevens").Range.Style = wdStyleHeading3
.Bookmarks("SubTechnischeGegevens").Range.Text = ListBox2.List(lItem)
.Bookmarks("SubTechnischeGegevens").Range.Text = ListBox1.List(lItem) & " "

End With

Next


Graag zou ik willen weten wat ik fout doe.

Alvast bedankt!

Bas

 

[snb]

Ik definieer een bladwijzer die een 5-tal spaties bevat (ergo: een 'gebied' gedefinieerd als bladwijzer).

Dan gebruik ik:

Sub M_snb()
   With ThisDocument.Bookmarks("vervolg")
      ThisDocument.Range(.Start, .End - 1).InsertBreak
   End With
End Sub

Daarna ben ik niet ontevreden over het resultaat.

 

[basAwa]

Bedankt voor je reactie!

Ik probeer van Excel-vba een lege pagina in een word document te plaatsen.
Ik heb het volgende geprobeerd:

With objword.ActiveDocument.Bookmarks("SubTechnischeGegevens")
.Range(.Start, .End - 1).InsertBreak
End With

Nu geeft deze code fout 451

Property let procedure is niet gedefinieerd en property get-procedure heft geen object geretouneerd.

 

[snb]

Hoe zou er op deze manier een bladwijzer in het bestand komen ?

 

[basAwa]

Hoe bedoel je dat?
Ik heb een bladwijzer in het word document geplaatst.
Hier laat ik de vba code naar verwijzen om op die plaats in het document een nieuwe pagina te starten.

 

[basAwa]

Ik heb nu de onderstaande code die alleen de eerste keer werkt in de loop.
Dus als die bij next is en hij begint de loop opnieuw dan werkt die niet meer.
Dan geeft deze foutmelding 4605 'De method of eigenschap is niet beschikbaar omdat de huidige sectie bevindt zich buiten een XML-element op blokniveau'

Hoe zou dit kunnen komen?

 

[snb]

Je hebt niet goed gelezen wat ik over de bladwijzer in het document schreef: een gebied als bladwijzer. (zichtbaar door de haken [ ] )

 

[basAwa]

Ja dat heb ik gedaan. Ik heb van 5x spatie een bladwijzer gemaakt.

 

[snb]

welke 'onderstaande code' ?

 

[basAwa]

For lItem = 0 To ListBox1.ListCount - 1

With objword.ActiveDocument
.Bookmarks("SubTechnischeGegevens").Range.InsertBreak (wdPageBreak)
.Bookmarks("SubTechnischeGegevens").Range.Style = wdStyleHeading3
.Bookmarks("SubTechnischeGegevens").Range.Text = ListBox2.List(lItem)
.Bookmarks("SubTechnischeGegevens").Range.Text = ListBox1.List(lItem) & " "
.Bookmarks("SubTechnischeGegevens").Range = vbNewLine
End With

Next

 

[snb]

Ik zie weinig terug van mijn suggestie.

 

[OctaFish]

Of van het gebruik van CODE tags .

 

[basAwa]

Ik heb onderstaande code gebruikt:

For lItem = 0 To ListBox1.ListCount - 1

   With objword.ActiveDocument.Bookmarks("SubTechnischeGegevens")
      .Range(.Start, .End - 1).InsertBreak (wdPageBreak)
   End With



    With objword.ActiveDocument
        '.Bookmarks("SubTechnischeGegevens").Range.Range(.Start, .End - 1).InsertBreak (wdPageBreak)
        .Bookmarks("SubTechnischeGegevens").Range.Style = wdStyleHeading3
        .Bookmarks("SubTechnischeGegevens").Range.Text = ListBox2.List(lItem)
        .Bookmarks("SubTechnischeGegevens").Range.Text = ListBox1.List(lItem) & " "
        .Bookmarks("SubTechnischeGegevens").Range = vbNewLine
    End With

Next

Met onderstaande bookmark:



Maar hij geeft helaas nog steeds een foutmelding

 

[OctaFish]

Doe je documentje er eens bij, dan kunnen we beter zien waar het fout gaat.

 

[snb]

Het is zinloos dezelfde aktie tig keer in dezelfde bladwijzer uit te voeren.

 

[basAwa]

Bedankt voor jullie reacties en het meedenken!

Het document is voor mijn werk dus ik mag dit niet zomaar delen.

Ik verschillende bijlage toe te voegen voor het maken van een document. Deze bijlage moeten ieder op een nieuwe pagina beginnen.
Misschien zijn hier dan ook andere optie voor mogelijk. Dus als u suggesties heeft dan hoor ik dat graag!:thumb:

Ik vind het alleen wel vreemd waarom de onderstaande code de eerste keer wel werkt in de loop terwijl die de keer erna zegt dat de huidige sectie zich buiten een XML-element op blokniveau bevindt.

For lItem = 0 To ListBox1.ListCount - 1

    With objword.ActiveDocument
        .Bookmarks("SubTechnischeGegevens").Range.Collapse (wdCollapseStart)
        .Bookmarks("SubTechnischeGegevens").Range.InsertBreak (wdPageBreak)
        .Bookmarks("SubTechnischeGegevens").Range.Style = wdStyleHeading3
        .Bookmarks("SubTechnischeGegevens").Range.Text = ListBox2.List(lItem)
        .Bookmarks("SubTechnischeGegevens").Range.Text = ListBox1.List(lItem) & " "
    End With

Next

 

[OctaFish]

Het document is voor mijn werk dus ik mag dit niet zomaar delen.

Je kunt toch wel een documentje maken waar de noodzakelijke elementen in zitten?

 

[snb]

Omdat je met de code de bladwijzer verwijderd hebt.
Bestudeer eerst eens een hoofdstuk over bladwijzers in een Word boek.