Mail merge bookmark (again)

macropod · #1 10-21-2014, 03:34 PM

OK, make the following changes to the code.
Replace:
j = -Int(-(TblSrc.Rows.Count - 1) / 3 * 2)
With:
j = (TblSrc.Rows.Count - 2) * 3 + 1

Replace:
.LeftMargin = CentimetersToPoints(0.72)
.RightMargin = CentimetersToPoints(0.72)
With:
.LeftMargin = CentimetersToPoints(0.65)
.RightMargin = CentimetersToPoints(0.65)

After:
.TopMargin = CentimetersToPoints(0.45)

Insert:

Code:

    With .TextColumns
      .SetCount NumColumns:=3
      .EvenlySpaced = True
      .Spacing = 0
      .Width = CentimetersToPoints(6.57)
    End With

Replace:
Set TblTgt = .Tables.Add(Range:=.Range, NumRows:=j, NumColumns:=3, _
With:
Set TblTgt = .Tables.Add(Range:=.Range, NumRows:=j, NumColumns:=1, _

After:
.Borders.Enable = False
Insert:
.Rows.Alignment = wdAlignRowCenter

Replace:
Set Rng = .Cells((i - 1) * 2 - 1).Range
With:
Set Rng = .Cells((i - 2) * 3 + 1).Range

What the above changes do is to give the document itself a 3-column page layout, in which a single-column table is used. The table then uses the column-wrapping to manage the layout.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Mail Merge is Deleting objects in my header and footer during the merge	bgranzow	Mail Merge	9	06-05-2015 05:03 AM
Is data merge and mail merge the same thing?	ikearns	Mail Merge	1	09-12-2014 03:53 AM
Mail merge how to link mail merge field value to a column heading	dsummers	Mail Merge	1	05-08-2014 02:59 PM
Mail Merge Duplication of address on merge	RICKY	Mail Merge	1	09-26-2012 03:14 PM
Conditional merge fields in mail merge	Aude	Mail Merge	1	01-06-2012 07:38 PM