Ik weet niet precies at je wil maar mischien help dit je op weg.
Met de toestcombinatie shift-ctrl-end selecteer je de rest van het docoment vanaf de cursor. Op dat moment kan je knippen en plakken of deleten.
Wil je er een macro van maken dan zou hij er zo uit kunnen zien.
Sub selecteer_vanaf_pagina10()
'
' selecteer_vanaf_pagina10 Macro
' Macro opgenomen op 17-12-2005 door
'
Selection.HomeKey Unit:=wdStory
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="10"
Selection.Find.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchKashida = False
.MatchDiacritics = False
.MatchAlefHamza = False
.MatchControl = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.EndKey Unit:=wdStory, Extend:=wdExtend
Selection.Delete Unit:=wdCharacter, Count:=1
End Sub
In deze macro heb ik alles na pagina 10 gedelete