Борьба с автонумерацией многоуровневого списка

[nii-kto]

Word 2003. Есть очень большой документ, для нумерации пунктов которого используется автонумерация. Требуется порезать его по пунктам второго-третьего уровня на отдельные документы. Порезать могу и ручками. Но при этом нумерация сбивается - а она должна быть сохранена.
Word даёт изменить ("начать с") только последнее число в нумерации, что не подходит. Замена всей нумерации на простой текст ручками тоже не подходит: в документе могут быть и изменения, а пунктов гораздо больше, чем нарезаемых кусков (резать ручками - приемлемо, нумеровать - нет).
Есть мысль преобразовать нумерацию в простой текст силами VBA (есть опыт по ваянию в Экселе). Пните, пожалуйста, в правильном направлении.

[Казанский]

> Есть мысль преобразовать нумерацию в простой текст силами VBA

Попробуйте

Sub ParNum2Text()
Dim i&, li, fli, ls$
For i = ActiveDocument.Paragraphs.Count To 1 Step -1
    With ActiveDocument.Paragraphs(i).Range
        ls = .ListFormat.ListString 'текст нумерации
        If ls <> "" Then 'есть нумерация
            li = .ParagraphFormat.LeftIndent
            fli = .ParagraphFormat.FirstLineIndent
            .InsertBefore ls & vbTab 'или " ", если он служит разделителем между номером и текстом
            .ListFormat.RemoveNumbers wdNumberParagraph
            .ParagraphFormat.LeftIndent = li
            .ParagraphFormat.FirstLineIndent = fli
        End If
    End With
Next
End Sub

[nii-kto]

Супер! Всё работает!
За исключением того, что в ls могут быть не номера, а "o", например. Но это уже частности, выясню и поправлю.
Спасибо!

[nii-kto]

Как-то так:

Sub ParNum2Text()
Dim i&, li, fli, ls$, fs$
For i = ActiveDocument.Paragraphs.Count To 1 Step -1
    With ActiveDocument.Paragraphs(i).Range
        ls = .ListFormat.ListString 'текст нумерации или обозначение элемента списка
        fs = Left(ls, 1)
        If ls <> "" And fs >= "0" And fs <= "9" Then 'есть нумерация
            li = .ParagraphFormat.LeftIndent
            fli = .ParagraphFormat.FirstLineIndent
            .InsertBefore ls & vbTab 'или " ", если он служит разделителем между номером и текстом
            .ListFormat.RemoveNumbers wdNumberParagraph
            .ParagraphFormat.LeftIndent = li
            .ParagraphFormat.FirstLineIndent = fli
        End If
    End With
Next
End Sub