View Single Post
Old 06-21-2019, 11:52 AM
kilroy kilroy is offline Windows 10 Office 2016
Competent Performer
Join Date: Sep 2016
Location: Southern Ontario
Posts: 118
kilroy is on a distinguished road

Cannot put code tag for some reason.

try this:

Sub DeleteFirstTwoPages()
Dim oSec As section
Dim i As Integer
Application.ScreenUpdating = False
For Each oSec In ActiveDocument.Sections
For i = 1 To 2
ActiveDocument.Bookmarks("\page").Range.Delete 'this deletes current page
Next i
Next oSec
Application.ScreenUpdating = False
End Sub

Last edited by kilroy; 06-21-2019 at 11:53 AM. Reason: more content
Reply With Quote