word document opsplitsen

[jwaque]

Ik heb een groot word document wat ik om wil zetten naar kleinere documenten.
Iemand een idee?

Ik heb eerder gewerkt met onderstaande code. Maar nu is het dus al 1 groot bestand.

Ieder nieuw bestandje zal (meestal) een pagina groot zijn. Elke pagina begint met een koptekst. Nu dacht ik als ik van alle kopteksten een bookmark maak zou ik dan alle stukken van bookmark naar bookmark (of de pagina van het bookmark) apart kunnen opslaan onder de naam van het bookmark.

ik vond ook http://www.paulsnip.nl/orwforum/forum.asp?action=topic&forum=3&topic=1237&langid=nl maar ik heb (denk ik) geen tekstframes. zou ik die kunnen maken?

1. Sub samenvoegen_per_record()
2. With ActiveDocument.MailMerge
3. .Destination = wdSendToNewDocument
4. With .DataSource
5. .ActiveRecord = wdLastRecord
6. c2 = .ActiveRecord
7. End With
8.
9. For j = 1 To c2 - 1
10. With .DataSource
11. .FirstRecord = j
12. .LastRecord = j
13. .activerecord=j
14. c4 = .DataFields("achternaam").value
15. End With
16. ActiveDocument.MailMerge.Execute
17. With ActiveDocument
18. .SaveAs "E:\___" & c4 & ".doc"
19. .Close 0
20. End With
21. Next
22. End With