#16
|
|||
|
|||
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 |
#17
|
||||
|
||||
Quote:
Depending on your requirements, you may be able to achieve the desired result using a DATABASE field in a normal ‘letter’ mailmerge main document and a macro to drive the process. An outline of this approach can be found at: https://answers.microsoft.com/en-us/...1-1996c14dca5d Conversely, if you're using a relational database or, Excel workbook with a separate table with just a single instance of each of the grouping criteria, a DATABASE field in a normal ‘letter’ mailmerge main document could be used without the need for a macro. An outline of this approach can be found at: https://answers.microsoft.com/en-us/...f-8642e46fa103 For some working examples, see: https://www.msofficeforums.com/mail-...-multiple.html https://www.msofficeforums.com/mail-...tml#post151706 Merge excel list into Word Receipt (the second of these uses a macro to apply some additional formatting).
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
|
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 |