Want to remove first 2 blank pages

[chrscote]

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:

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]

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]

If the first actual content is the table then:

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]

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