Сценарий для обратботки текста

[mekkanizer]

Доброго времени суток! Выручите плз или хотя бы наставьте на путь истинный что надо делать.
В общем ситуация такая что дан текстовый, полностью текстовый .doc (без таблиц картинок, etc.) так вот в нем нужно сделать следующую вещь:
документ начинается с пустой строчки и идет в формате
[пустая строка]
xxx
yyy
zzz
zzz
zzz(может быть любое кол-во zzz строк)
И ПОТОМ СНОВА [пустая строка]
нужно оставляя каждый раз первые две строки (ххх и ууу) стирать ВСЕ zzz вплоть до следующей пустой строки. То есть напрашивается использование while но мои познания крайне скудны, поможите хоть советом)

Спасибо.

[viter.alex]

Попробуй такую штуку. В конце документа обязательно должна быть пустая строка иначе макрос зациклится

Sub test()
    'Переменные для хранения предыдущей и текущей позиции курсора
    Dim nPrevPos As Long, nCurrPos As Long
    Selection.HomeKey wdStory
    Do
        Selection.MoveDown Count:=3
        nPrevPos = Selection.Start
        Do While Selection.Paragraphs.First.Range.Text <> Chr(13)
            Selection.MoveDown
        Loop
        nCurrPos = Selection.Start
        If nPrevPos <> nCurrPos Then
            ActiveDocument.Range(nPrevPos, nCurrPos).Delete
        End If
    Loop While nCurrPos <> nPrevPos
End Sub

[DiemonStar]

если zzz подразумевает одинаковые строки, то так будет быстрее:

Sub Delete_ZZZ()
  Selection.HomeKey wdStory
  While Selection.Find.Execute("zzz^pzzz^p", False, False, False, False, False, True, wdFindContinue, False, "zzz^p", wdReplaceAll)
  Wend
  Selection.Find.Execute "zzz^p^p", False, False, False, False, False, True, wdFindContinue, False, "^p", wdReplaceAll
End Sub