Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Afdruk samenvoegen voor bulkmail, brieven  (gelezen 1948 keer)

0 leden en 1 gast bekijken dit topic.

Offline Marcske

  • Volledig lid
  • **
  • Berichten: 152
  • Oplossing.be
Afdruk samenvoegen voor bulkmail, brieven
« Gepost op: 17 maart 2023, 10:58:55 »
Ik wil met Word, met gegevens uit Excel, een mail merge doen maar het resultaat moet in verschillende aparte documenten/bestanden geplaatst worden.
Kan dit? Dus niet in 1 document. Maar als ik bijvoorbeel 100 adressen heb in 100 verschillende bestanden of documenten.
Kan dat eigenlijk en hoe?
Windows 11
Intel(R) Core(TM) i5 CPU         660  @ 3.33GHz 1166
H55-GD65 (MS-7637) 
NVIDIA GeForce GT 220  1024MB 1280 x 1024
NVIDIA High Definition Audio
Nr: 1 Model: SAMSUNG HD103SJ ATA Device
Nr: 2 Model: ST3160812AS ATA Device
Nr: 3 Model: Generic- Compact Flash USB De

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Afdruk samenvoegen voor bulkmail, brieven
« Reactie #1 Gepost op: 18 maart 2023, 18:04:18 »
Hallo Marcske,

Wat heb je zelf al gevonden als oplossing?
Welke Office versie gebruik je?

Lees deze Microsoft site eens en kijk of je daar mee verder kan?  Beter uitleggen kan ik het niet.... :-\

Groeten,

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Afdruk samenvoegen voor bulkmail, brieven
« Reactie #2 Gepost op: 19 maart 2023, 10:54:23 »
@ 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
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline Marcske

  • Volledig lid
  • **
  • Berichten: 152
  • Oplossing.be
Re: Afdruk samenvoegen voor bulkmail, brieven
« Reactie #3 Gepost op: 23 maart 2023, 15:58:35 »
Hey bedankt!
Maar waar plaats ik die code?
Windows 11
Intel(R) Core(TM) i5 CPU         660  @ 3.33GHz 1166
H55-GD65 (MS-7637) 
NVIDIA GeForce GT 220  1024MB 1280 x 1024
NVIDIA High Definition Audio
Nr: 1 Model: SAMSUNG HD103SJ ATA Device
Nr: 2 Model: ST3160812AS ATA Device
Nr: 3 Model: Generic- Compact Flash USB De

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Afdruk samenvoegen voor bulkmail, brieven
« Reactie #4 Gepost op: 24 maart 2023, 09:35:43 »
Hallo Marcske,

Die code kan je in de vba-editor in 'ThisDocument' zetten en uitvoeren nadat je de mail merge helemaal hebt afgerond, dan krijg je namelijk een document met meerdere secties, en zoals je ziet in de code maakt die daarvan gebruik om de afzonderlijke bestanden op te slaan.
Aangezien je geen verdere informatie had gegeven had ik niets aan de gevonden code gewijzigd. Ze zal dus enkel de nieuwe bestanden nummeren van 1 tot x. Aan jou dus om te bepalen of dit volstaat.

Mvg,
Molly
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

 


www.combell.com