delete blank pages from mail merged word 2003 document

• Dec 17, 2010

• #2

macropod

Technical User

Mar 9, 2004

3,045

AU

Does that make sense?

Click to expand...

No, it doesn't - the mailmerge should be designed to not generate empty pages. You should be able to do this using 'IF' field tests.

Having:

15 blank pages per record

Click to expand...

Is over the top!


Cheers
[MS MVP - Word]

 

Upvote 0 Downvote

• Dec 17, 2010

• #3

macropod

Technical User

Mar 9, 2004

3,045

AU

I see you've posted the same question at:

http://www.techsupportforum.com/mic...ank-pages-mail-merged-word-2003-document.html

For cross-posting etiquette, please see:

http://www.excelguru.ca/node/7

Cheers
[MS MVP - Word]

 

Upvote 0 Downvote

• Dec 18, 2010

• Thread starter
• #4

bluesea2

Technical User

Dec 17, 2010

2

GB

Thanks for pointing me to the cross post link. Apologies, I can now see that it can be annoying! I was pretty desperate for an answer so posted to a few different groups.
None of my other posts had a reply, I have edited my other posts and put a link to this post as the original.


It looks like I have been trying to do this the wrong way. Will read up on IF field tests, thanks.

 

Upvote 0 Downvote

• Dec 18, 2010

• #5

macropod

Technical User

Mar 9, 2004

3,045

AU

hi bluesea2,

Your mailmerge description suggests you might have many records per 'letter'. If that's the case, you can use Word's Catalogue/Directory Mailmerge facility (the terminology depends on the Word version). To see how to do so with any mailmerge data source supported by Word, check out my Microsoft Word Catalogue/Directory Mailmerge Tutorial at:

http://lounge.windowssecrets.com/index.php?showtopic=731107

or

http://www.gmayor.com/Zips/Catalogue Mailmerge.zip

Do read the tutorial before trying to use the mailmerge document included with it


Cheers
[MS MVP - Word]

 

Upvote 0 Downvote

• Dec 19, 2010

• #6

macropod

Technical User

Mar 9, 2004

3,045

AU

Hi Bluesea2,

Pending your implementation of the IF tests or the Catalogue/Directory mailmerge, here's a macro that will delete all empty table rows from your document:

Code:

Sub TableCleaner()
Dim oRow As Row, oTable As Table
Application.ScreenUpdating = False
For Each oTable In ActiveDocument.Tables
  For Each oRow In oTable.Rows
    If Len(Replace(oRow.Range.Text, Chr(13) & Chr(7), _
      vbNullString)) = 0 Then oRow.Delete
  Next oRow
Next oTable
Application.ScreenUpdating = True
End Sub

Cheers
Paul Edstein
[MS MVP - Word]

 

Upvote 0 Downvote

• Dec 20, 2010

• #7

Madawc

Programmer

Sep 5, 2002

7,628

GB

You can also get rid of blank pages without a macro, provided that they are based on 'manual page breaks'. In your standard find / replace function, change ^m^m to ^m. Run several times to get rid of all such cases.

Madawc Williams (East Anglia, UK). Using Crystal 11.5 with SQL and Windows XP

 

Upvote 0 Downvote

• Dec 20, 2010

• #8

macropod

Technical User

Mar 9, 2004

3,045

AU

Hi Madawc,

From the OP's:

each page has an identical layout with a mixture of text and tables

Click to expand...

and

if mergefiled = blank or if particular cell in table is blank,then delete complete page of document

Click to expand...

I get the impression that the so-called blank pages are anything but. At the very least, it seems they have empty table rows and maybe some text as well.

Cheers
Paul Edstein
[MS MVP - Word]

 

Upvote 0 Downvote

• Dec 20, 2010

• #9

fumei

Technical User

Oct 23, 2002

9,349

CA

Code:

    If Len(Replace(oRow.Range.Text, Chr(13) & Chr(7), _
      vbNullString)) = 0 Then oRow.Delete

Nice.

< 60 working days until retirement

 

Upvote 0 Downvote