отступ новых абзацев по условию

[Пименов Александр]

Здесь как раз ничего сложного нет:
Private Function fnID_Punct() As Byte
lst = Split(strPunct, ".") ' Создаем массив с разделителем точка
fnID_Punct = 0 ' Ставим счетчик уровня на 0
For j = 0 To UBound(lst) ' Проверяем массив lst начиная с 0
If IsNumeric(Trim(lst(j))) = True Then ' Если lst(j) без пробелов «Trim(lst(j)» Цифра увеличиваем уровень на 1
fnID_Punct = fnID_Punct + 1 ' Уровень увеличивается на 1
Else
fnID_Punct = fnID_Punct ' Иначе прекращаем цикл «ID_Punct = fnID_Punct» есть уровень списка и можем составить формулу отступов абзацев согласно уровню списка
Exit For
End If
Next j
End Function

[Пименов Александр]

Этот код решает только 70% условий определения уровня списка, в остальные 30% 25% входит проверка ошибок наборщика человека и 5% специфика издания документа...