Mail Merge Template

Navdeep K Saini · #15 03-23-2022, 07:41 AM

Hi,

The code you please works for the project I have, but instead of printing the letters with empty rows deleted, I need to email the letters, is it possible to make changes to the code to accommodate this request?

Code:

Sub MailMergeToDoc()
Application.ScreenUpdating = False
Dim Tbl As Table, r As Long
ActiveDocument.MailMerge.Execute
With ActiveDocument
  For Each Tbl In .Tables
    With Tbl
      For r = .Rows.Count To 3 Step -1
        With .Rows(r)
          If Len(.Cells(2).Range.Text) = 2 Then .Delete
        End With
      Next
    End With
  Next
End With
Application.ScreenUpdating = False
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to remove almost a full page of blank space in between Word table rows	garrisonsdad	Word Tables	4	10-18-2018 09:09 PM
Mail merge: remove empty rows when a field is not showed	Yarikh	Mail Merge	4	09-23-2018 12:17 AM
Remove blank table rows AFTER mailmerge	Formd	Mail Merge	5	05-11-2018 03:43 PM
How to remove blank spaces between rows in a table,	Jamal NUMAN	Word	2	04-28-2017 12:59 PM
Mail merge into table with two colums and several rows	kathriiin	Mail Merge	3	03-30-2015 07:06 AM