Закладки VS разравы страниц

[tolikman]

И снова здраствуйте!
у меня есть код
модуль1:

Public Sub pPAGEBREAK()
    file.Range(cursor, cursor).InsertBreak (wdPageBreak)
    pCursor = cursor
    cursor = cursor + 1
End Sub
Public Sub pBOOKMARK(name)
    Dim rng As Range
    Dim bkmr As Bookmark
    Set rng = file.Range(cursor, cursor) 'или просто Set rng = file.Range(cursor) - одно и то же в результате
    Set bkmr = file.Bookmarks.Add(name, rng)
End Sub

,где cursor - текущее положение в word'e
если писать:

pPAGEBREAK
pPAGEBREAK
pPAGEBREAK

,то в документе создается 3 страницы (как не странно, да?)
,а если писать так:

pPAGEBREAK
pBOOKMARK "1"
pPAGEBREAK
pBOOKMARK "2"
pPAGEBREAK
pBOOKMARK "3"

,то создается 1 страница на которой все три закладки расположены друг за другом
Я не могу понять, в чем здесь проблема, закладки принудительно съедают разрывы? (кстати пытался после разрыва страницы "enter'ов" понаставить, тоже самое!)
или ошибка в коде? помогите пожалуйста.

[viter.alex]

Как ты объявил cursor?
В пошаговом режиме (F8) посмотри, что происходит с документом (что выделяется после вставки закладки). Там есть какой-то прикол при вставке закладки.
Кстати, имена закладок не могут начинаться с цифр, а уж состоять из одних цифр, тем более.

[tolikman]

цифры - это к примеру.
cursor это моя переменная которая увеличивается(или уменьшается) моими функциями которыми я пользуюсь.

[viter.alex]

Смотри, я сделал так, все работает.

Public Sub pPAGEBREAK()
    Selection.InsertBreak wdPageBreak
End Sub
Public Sub pBOOKMARK(name As String)
    Dim rng As Range
    Dim bkmr As Bookmark
    Set rng = Selection.Range 'или просто Set rng = file.Range(cursor) - одно и то же в результате
    Set bkmr = ActiveDocument.Bookmarks.Add(name, rng)
End Sub

Sub try_()
  Dim i As Integer
  For i = 0 To 3
    pPAGEBREAK
    pBOOKMARK Replace("bookmark" & Str$(i), " ", "")
  Next i
End Sub