#15
|
|||
|
|||
Email Instead of Printing Document
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 Last edited by macropod; 03-23-2022 at 01:39 PM. Reason: Added code tags |
|
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 |