Removing page breaks from a Word document using Vb6

[el84]

Trying to remove all page breaks from a Word document

Private Sub RemovePageBreaks()
    Dim Rng As Range
   oWrdAppNew.ActiveDocument.Activate
   Set Rng = ActiveDocument.Range.GoTo(What:=wdGoToPage, Name:=1)
   Set Rng = Rng.GoTo(What:=wdGoToBookmark, Name:="\page")
   Rng.End = Rng.End - 2
   Rng.Collapse wdCollapseEnd
   If Asc(Rng.Characters.Last) = 12 Then Rng.Delete
   ActiveDocument.Range.InsertAfter "Ah!"
End Sub

The last word "Ah" verifies that I am writing to the desired document (ie it is the correct one being activated).

[el84]

<dup!>

[el84]

I've just made it work. I changed Rng.End = Rng.End -2 to Rng.End = Rng.End -1

But I have no idea why that fixed it!

[el84]

Sorry. That last post turned out to be wrong. It IS -2!