Mail Merge with correct format

macropod · #15 10-10-2015, 09:23 PM

Try running just the following stripped-down code. It should produce a series of new documents - one per Section of your source document, with just one copy of each Section's content per new document.

Code:

Sub emailmergewithattachments()
Dim Source As Document, wdDoc As Document, oRng As Range, j As Long
Set Source = ActiveDocument
For j = 1 To Source.Sections.Count - 1
  Set wdDoc = Documents.Add
  Set oRng = wdDoc.Range
  oRng.Collapse 1
  'oRng.FormattedText = Source.Sections(j).Range.FormattedText
  Source.Sections(j).Range.Copy
  oRng.Paste
Next j
MsgBox Source.Sections.Count - 1 & " messages have been sent."
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Mail Merge Format random 0s	lmoir87	Mail Merge	2	07-31-2014 03:45 AM
Change Mail Merge Date Format from US to UK	Evanaught	Mail Merge	1	09-29-2013 08:02 PM
Issue with date format in mail merge document	walshjod	Mail Merge	4	11-28-2012 04:46 AM
Mail merge will not format date field generated by Excel IF statement	borntorun75	Mail Merge	3	12-16-2011 06:28 AM
Correct Format needed	TonyB	Mail Merge	3	05-03-2011 01:10 AM