@ SoftAid,
Dat MS-artikel behandelt volgens mij enkel de algemene onderrichtingen om een mail merge te maken, maar niet de specifieke vraag van TS om het resultaat in afzonderlijke bestanden op te slaan.
@ Marcske,
Eén minuutje googelen volstond om deze code te vinden, ondertussen ook getest en goedgekeurd. Voor de naamgeving van de documenten zal je vermoedelijk zelf nog wat moeten aanpassen.
Succes!
Option Explicit
Sub AllSectionsToSubDoc()
Dim x As Long
Dim Sections As Long
Dim Doc As Document
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set Doc = ActiveDocument
Sections = Doc.Sections.Count
For x = Sections - 1 To 1 Step -1
Doc.Sections(x).Range.Copy
Documents.Add
ActiveDocument.Range.Paste
ActiveDocument.SaveAs (Doc.Path & "\" & x & ".doc")
ActiveDocument.Close False
Next x
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Mvg,
Molly