Remove page and make document even # of pages? 2

[cheriberi]

Is it possible via VBA in Word to remove the last page of a document (starting with the last page break), then make sure that the document has an even number of pages (if odd number, add a page break at the end)?

 

[TonyJollans]

Hi Cheryl,

I think this will do it for you:

With Selection

    .EndKey Unit:=wdStory

    .Find.ClearFormatting
    .Find.Execute FindText:="^m", Forward:=False, Wrap:=wdFindStop

    If .Find.Found Then
        .MoveEnd wdStory
        .Delete
    End If

End With

If ActiveDocument.BuiltInDocumentProperties(wdPropertyPages) Mod 2 = 1 Then
    Selection.EndKey Unit:=wdStory
    Selection.InsertBreak Type:=wdPageBreak
End If

Enjoy,
Tony

 

[SkipVought]

Tony,

You rock!

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[TonyJollans]

Thanks Skip

 

[SkipVought]

Sssssssmmmmmoooookinnnnnnnnn' !!!!

;-)

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[cheriberi]

Awesome!! This is exactly what I needed!