Удалить все страницы до конкретного слова

[Polotenchik]

Всем привет! Мне надо удалить все (все страницы с содержимым), что находится перед словом бла бла бла.

Как удалить конкретное число первых страницы я знаю:

    Dim nStart As Long, nEnd As Long
    With Selection
      'Переход к началу первой страницы
      .GoTo wdGoToPage, wdGoToAbsolute, 1
      'Запоминаем положение
      nStart = .Start
      'Переход к началу 5 страницы
      .GoTo wdGoToPage, wdGoToAbsolute, 5
      'Запоминаем положение
      nEnd = .Start
      'Выделяем
      .SetRange nStart, nEnd
      'Удаляем
      .Delete
    End With

В этом случаи произойдет удаление первых 4-ех страниц, а мне надо удалить все первые страницы до слова бла бла бла. Т.е. перед бла бла бла я не знаю сколько конкретно страниц.

Подскажите, как ?

[Polotenchik]

Странно, почему так не хочет удалять?:

    Dim intN
' Ищем бла бла бла
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "бла бла бла"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute

    intN = Selection.Information(wdActiveEndPageNumber) ' запоминаем номер страницы
    
    Dim nStart As Long, nEnd As Long
    With Selection
      'Переход к началу первой страницы
      .GoTo wdGoToPage, wdGoToAbsolute, 1
      'Запоминаем положение
      nStart = .Start
      'Переход к началу intN  страницы
      .GoTo wdGoToPage, wdGoToAbsolute, intN ' указывает его здесь
      'Запоминаем положение
      nEnd = .Start
      'Выделяем
      .SetRange nStart, nEnd
      'Удаляем
      .Delete
    End With

Должен ведь по идеи работать?!

П.С. А нет все пашет. Просто бла бла бла еще раньше встретилась по тексту. Вопрос снят!