Hi
Thanks for your inquiry. Please try inserting the following code before saving sub document:
'Remove page break from the last pagagraph of the document
For Each run As Run In dstDoc.LastSection.Body.LastParagraph.Runs
run.Text = run.Text.Replace(ControlChar.PageBreakChar, " ")
Next
'The sane technique for removing pagebreak from the begining of the document
For Each run As Run In dstDoc.FirstSection.Body.FirstParagraph.Runs
run.Text = run.Text.Replace(ControlChar.PageBreakChar, " ")
Next
Hope this helps.
Best regards.