Hi,

I have a 160 pages document in which I need to delete all even pages.
Any idea how to do that? Is there any script that could do that?

Thanks in advance,
Yann

Hi =?Utf-8?B?WWFubg==?=,

> I have a 160 pages document in which I need to delete all even pages.
> Any idea how to do that? Is there any script that could do that?
>
I suppose it would be possible, using a macro... Here's one that works
in a quick test, for me

Sub RemoveAllEvenPages()
Dim doc As Word.Document
Dim pgNr As Long
Dim rng As Word.Range

Set doc = ActiveDocument
Selection.EndKey Unit:=wdStory
pgNr = Selection.Information(wdActiveEndPageNumber)
Do While pgNr > 1
If pgNr Mod 2 = 0 Then
Set rng = doc.Bookmarks("\Page").Range
rng.Delete
End If
pgNr = pgNr - 1
Selection.GoTo What:=wdGoToPage, Count:=pgNr
Loop
End Sub

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jun 17 2005)
http://www.word.mvps.org

This reply is posted in the Newsgroup; please post any follow question
or reply in the newsgroup and not by e-mail :-)