преобразование автономеров в простой текст

[caute]

есть документ из Файн ридера 11, в котором куча автонумерованных списков. Можно ли их преобразовать в обычные номера с пробелами вместо табулиций (которые стоят после автономера)?

[Скрипт]

Sub Procedure_1()

    Dim myParagraph As Word.Paragraph
    Dim myLength As Long
    Dim i As Long
    
    'Можно добавить в код переход в режим "Черновик" и
        'отключение проверки правописания, чтобы код работал быстрее.
    
    'Двигаемся с конца в начало, иначе номера списков
        'будут меняться.
    For i = ActiveDocument.ListParagraphs.Count To 1 Step -1
    
        'Даём VBA-имя "myParagraph" абзацу, в котором есть автоматический номер,
            'т.к. потом мы преобразуем абзац-список в обычный абзац
            'и не сможем получить доступ к абзацу-списку.
        Set myParagraph = ActiveDocument.ListParagraphs(i)
        
        'Узнаём сколько символов в автоматическом номере, чтобы
            'потом посмотреть после определённого символа:
            'есть знак табуляции или нет.
        myLength = Len(myParagraph.Range.ListFormat.ListString) + 1
        
        'Превращаем автоматический номер в текст.
        myParagraph.Range.ListFormat.ConvertNumbersToText
        
        'Смотрим, есть ли знак табуляции после номера или нет.
        'Chr(9) - это знак табуляции. У знака табуляции в таблице "ANSI"
            'порядковый номер 9.
        If myParagraph.Range.Characters(myLength).Text = Chr(9) Then
            'Заменяем знак табуляции на пробел.
            myParagraph.Range.Characters(myLength).Text = " "
        End If
        
    Next i
    
End Sub

[caute]

отлично работает! спасибо