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 174 keer)

0 leden en 1 gast bekijken dit topic.

Offline Marcske

  • Volledig lid
  • **
  • Berichten: 143
  • 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 10
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: 19.607
  • 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 :)             
« Laatst bewerkt op: 18 maart 2023, 18:51:19 door SoftAid »
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
  • Ervaren lid
  • *****
  • Berichten: 426
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

Offline Marcske

  • Volledig lid
  • **
  • Berichten: 143
  • Oplossing.be
Re: Afdruk samenvoegen voor bulkmail, brieven
« Reactie #3 Gepost op: Gisteren om 15:58:35 »
Hey bedankt!
Maar waar plaats ik die code?
Windows 10
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

 


www.combell.com