bladzijde selecteren

[wilbert1967]

hallo

in een word document van meer dan 1000 blz wil ik de bladzijde verwijderen die een bepaald woord bevatten
een bladzijde met dat woord kan ik vinden mbv een macro maar hoe maak ik een macro die 1 bladzijde selecteer. niet elke bladzijde heeft even veel regels.

bvd
wilbert

 

[Superzeeuw]

Wilbert,

Met de volgende code moet het lukken:

ActiveDocument.Page(Paginanummer hier invullen).Delete

 

[wilbert1967]

ik heb word 2003 en daar bij werkt deze code niet

 

[Superzeeuw]

Wilbert,

Ik kan je hiermee helaas niet verder helpen want ik werk met 2007.

Kijk eens op deze site, misschien vindt je hier je antwoord.

http://www.vbaexpress.com/forum/showthread.php?t=10329

 

[OctaFish]

Met deze macro moet het lukken:

Sub PaginaWeg()
Dim iPage As Integer

Invoeren:
    iPage = InputBox("Typ het paginanummer:")
    If Not IsNumeric(iPage) Then GoTo Invoeren

    Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=iPage
    Selection.GoTo What:=wdGoToBookmark, Name:="\page"
    Selection.Delete Unit:=wdCharacter, Count:=1
End Sub