Delete blank pages

gmayor · #8 09-07-2014, 02:37 AM

If they are just paragraph breaks at the end then

Code:

Sub Macro1()
Dim i As Long
    For i = ActiveDocument.Paragraphs.Count To 1 Step -1
        If Len(ActiveDocument.Paragraphs(i).Range) = 1 Then
            ActiveDocument.Paragraphs(i).Range.Delete
        Else
            Exit For
        End If
    Next i
End Sub

As for the compiler error with the previous macro, you have a missing object library reference - Microsoft Forms 2.0

If you change
Dim dFname As DataObject
to
Dim dFname As Object

it should compile.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
deleting blank pages	thauser	Word	3	05-27-2014 01:56 AM
Deleting blank pages	Microsoftenquirer1000	Word	14	08-27-2012 01:24 PM
delete blank pages from mail merge document	blusea	Word	0	12-17-2010 06:10 PM
How do you delete a blank page at end?	aerophil	Word	4	10-24-2009 05:04 AM
hidden blank pages	mljm	Word	3	06-19-2009 03:18 AM