Замена текста установкой табуляции

[Niyetkhan]

Здравствуйте,

В документе 436 страниц А4. Текст – результат распознавания сканированных страниц книги, в целом устраивает: ошибок практически нет. Нужно создать точную редактируемую копию книги в формате word doc.
Но есть один нюанс: все места в документе, где есть табуляция (заполнитель – точки с выравниванием по правому краю), распознаны не как табуляция с заполнением и установленной позицией, а просто как точки. То есть это могут быть 3, 4, 5 и более точек, идущих подряд без пробелов. Таких многоточий в документе – 392 (определил, когда ввел несколько точек в поле «Найти» и выделив их все диалоговом окне «Поиск и замена»).
Сначала я нахожу эти многоточия, удаляю их. Затем устанавливаю позицию табуляции и заполнение и только потом наживаю клавишу Tab, чтобы добиться правильного позиционирования нужного текста на странице.
Вопрос: можно ли это делать не вручную, заменить макросом?
Страницу из этого документа прилагаю.

Буду признателен за отклики.

С уважением,
Ниетхан

[min@y™]

Не хватает примера ВЫХОДНОГО текста.
З.Ы. Форматировать табами текст в ворде разрешено только криворуким дебилам. Для нормальных людей есть стили.

[viter.alex]

В принципе можно такое замутить. Позиция табуляции фиксированная или меняется в зависимости от количества точек?

[viter.alex]

Посмотрел файл. Зачем там табуляция? Можно сделать просто отступом поиском и заменой

[Niyetkhan]

Позиция табуляции - фиксированная для всего документа - 16 см. . Все позиции табуляции должны быть как первая табуляция на первой странице (вверху).Прилагаю для примера файл

[Niyetkhan]

Можно заменить отступом, но как заполнить эти отступы точками?

[Niyetkhan]

Это одна из страниц книги. Нужно, чтобы форматирование в документе Word было максимально приближено к оригиналу.

[Niyetkhan]

Нашел один макрос для подобной задачи. Однако он выполняет только одну замену за раз. А мне нужно заменить все многоточия, нужен цикл. Ума не приложу, как этого добиться...

Sub Макрос2()
Selection.TypeText Text:="...."

Selection.ParagraphFormat.TabStops. ClearAll
Selection.ParagraphFormat.TabStops. Add Position:=CentimetersToPoints(15), _
Alignment:=wdAlignTabRight, Leader:=wdTabLeaderDots
Application.Keyboard (1049)
Selection.TypeText Text:=vbTab & vbTab

'
'
Selection.TypeText Text:=vbTab
End Sub

[viter.alex]

Всё можно сделать поиском и заменой с подстановочными знаками:

1. Найти: \.{2;}. Т.е. 2 и более точек подряд
2. Заменить на: ^t
   
3. Находясь в поле «Заменить на» выбрать Формат→Табуляция и настроить нужную табуляцию.
4. Заменить всё