automate macro for merged document (after merge)

macropod · #1 06-05-2015, 11:36 PM

If your mailmerge is being run through code, you could use that code to call the cleanup routine. There are more efficient means of doing that, though.

The following code will delete all blank rows (except for those with vertically merged cells) in all tables in the active document.

Code:

Sub DelBlankRows()
Application.ScreenUpdating = False
Dim i As Long, j As Long
With ActiveDocument
  For i = .Tables.Count To 1 Step -1
    With .Tables(i)
      For j = .Rows.Count To 1 Step -1
        On Error Resume Next 'skip vertically merged cells
        With .Rows(j)
          If Trim(Replace(Replace(.Range.Text, Chr(13) & Chr(7), ""), Chr(160), "")) = "" Then .Delete
        End With
        On Error GoTo 0
      Next
    End With
  Next
End With
Application.ScreenUpdating = True
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Automate document properties	Ted C	Word VBA	11	08-04-2014 06:31 AM
Emailing from Merged Document (Complicated)	Noxas	Mail Merge	1	07-17-2014 06:14 PM
Save merged document as concatenated merge field values	texas791	Word VBA	4	02-25-2014 07:35 PM
Automate daily mail merge	JCInfo	Mail Merge	4	12-02-2013 05:12 PM
Can I automate or make a macro for this?	mkoenig	Word VBA	1	01-31-2010 02:47 AM