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
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