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

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

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