excel / word samenvoegen en apart opslaan

[Peter404]

Hallo allemaal

Ik heb de volgende vraag. Ik heb een instructie die naar verschillende medewerkers moet. De brief verschilt enigszins per medewerker dus ik heb een template in Word gemaakt en een bestand met de varierende elementen in Excel. Deze voeg ik dan samen in Word en heb ik 85 verschillende brieven. Dit gaat allemaal prima
Omdat ik veel digitaal verstuur moet ik elke keer door het hoofddocument heen om elk afzonderlijk record op te slaan in een apart bestand.

Mijn vraag is: Kan ik Word ook de verschillende records die ontstaan bij de samenvoeging in aparte bestanden opslaan?

Groeten
Peter

 

[OctaFish]

Dat kan met deze functie.

Option Explicit 

Function Splitter() 
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 Function