UGLY DELETE PAGE CODE

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

FIRSTROUNDKO - 17 Jul 2007 16:01 GMT

Hi!

How can i delete the pages 1-3 with better code?

Sub Macro1()

Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="1"
Selection.Bookmarks("\Page").Select
Selection.Delete

Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="1"
Selection.Bookmarks("\Page").Select
Selection.Delete

Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="1"
Selection.Bookmarks("\Page").Select
Selection.Delete

End Sub

Thanks in advance

Reply to this Message

Brian - 19 Jul 2007 12:34 GMT

Sub DeletePages()
Dim oWrd As Word.Application
Dim oDoc As Word.Document
Set oWrd = GetObject(, "Word.Application")
Set oDoc = oWrd.ActiveDocument
oDoc.Range(0, 0).Select
With oWrd
.Selection.ExtendMode = True
.Selection.GoTo _
what:=wdGoToPage, _
which:=wdGoToAbsolute, _
Count:=4 '!
.Selection.Delete
End With
End Sub

Hope it helps

Signature

Brian McCaffery

> Hi!
>
[quoted text clipped - 17 lines]
>
> Thanks in advance

Reply to this Message

FIRSTROUNDKO - 19 Jul 2007 15:26 GMT

Thanks Brian

>Sub DeletePages()
>Dim oWrd As Word.Application
[quoted text clipped - 18 lines]
>>
>> Thanks in advance

Reply to this Message