Want to remove first 2 blank pages

chrscote · #1 06-21-2019, 06:28 AM

I have a script in DOORS that creates a document with a table. However, for some reason, it always adds 2 empty pages before the actual content. I have been trying to write a simple script that will delete these first 2 pages, but it's not working. Here's the code I'm using:

Code:

Sub removeExtraPages()
    Dim Rng As Range, iPage As Long
    iPage = 2
    With ActiveDocument
        Set Rng = .GoTo(What:=wdGoToPage, Name:=iPage)
        Set Rng = Rng.GoTo(What:=wdGoToBookmark, Name:="\page")
        Rng.Delete
    End With
End Sub

I found this code from this forum, but can't seem to figure out what is causing the problem. I'm hoping someone can help me out.

Chris

kilroy · #2 06-21-2019, 11:52 AM

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
oSec.Range.Select
Selection.Collapse
ActiveDocument.Bookmarks("\page").Range.Delete 'this deletes current page
Next i
Next oSec
Application.ScreenUpdating = False
End Sub

gmaxey · #3 06-21-2019, 12:05 PM

If the first actual content is the table then:

Code:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oRng As Range
  Set oRng = ActiveDocument.Range
  oRng.End = ActiveDocument.Tables(1).Range.Start
  oRng.Delete
lbl_Exit:
  Exit Sub
End Sub

chrscote · #4 06-24-2019, 05:45 AM

Thank you so much Kilroy. That script is exactly what I need for my application.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Delete blank pages	Dimsok	Word VBA	18	11-14-2014 12:30 PM
deleting blank pages	thauser	Word	3	05-27-2014 01:56 AM
remove blank lines in between	jolinchew	Excel	4	08-01-2013 06:09 AM
Deleting blank pages	Microsoftenquirer1000	Word	14	08-27-2012 01:24 PM
hidden blank pages	mljm	Word	3	06-19-2009 03:18 AM