![]() |
#1
|
|||
|
|||
![]() Code:
Dim oRange As Range Dim iPage As Integer Dim iEnd1 As Integer, iEnd2 As Integer iPage = 2 With ActiveDocument Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=iPage Set oRange = .Range(Start:=Selection.Range.Start, End:=.Bookmarks("\Page").Range.End) oRange1.Delete End With Thanks in advance. |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
Aston | Word | 9 | 04-27-2022 07:38 AM |
Can't delete word document | Sparky | Word | 1 | 04-18-2012 12:20 AM |
![]() |
ggun123 | Word | 3 | 08-23-2011 06:54 AM |
![]() |
Sleeper | Word | 2 | 06-28-2011 04:58 PM |
delete subtitle on a word document damn thing will not go | waynegr | Word | 0 | 07-09-2006 06:15 AM |