Вопрос по регексам и обработке текста в ХЗ из макроса

[Sanchos]

Вот есть такое и оно работает

Sub textCorrectorIo()
    Dim s As Shape, r As New ShapeRange, c As Long
    Set r = ActiveSelectionRange: c = 0
    For Each s In r
        If s.Type = cdrTextShape Then
        s.Text.Replace "ё", "е", False, ReplaceAll:=True
        c = c + 1
        End If
    Next s
    MsgBox CStr(c) & " текстовых объекта(ов) обработано"
End Sub

Но как внедрить регексы? И вообще какие регексы понимает Корел?
Допустим как убрать из текста двойные абрацы (пустой абзац) или как убрать двойные пробелы?...

 

[wOxxOm]

Ответ: Вопрос по регексам и обработке текста в ХЗ из макроса

можно, см. в гугл например - список, а здесь пример

 

[Sanchos]

Ответ: Вопрос по регексам и обработке текста в ХЗ из макроса

Спасибо, будем ковырять дальше