Макрос по замене пустых ячеек таблицы

[svetom]

Добрый день! Очень нужна помощь!
Суть проблемы: есть таблицы (см. вложение) около 300 штук. Часть ячеек заполнена точками. Файл сканированный необходимо перенести в ворд. Файн ридер точки воспринимает как шум и не распознаёт. В настройках ФР перепробовала разные настройки, не распознает точки, хоть убейся!
Можно ли написать макрос для ворда, чтобы в выделенной области таблицы (а не во всей таблице), пустые ячейки заменялись точками. Таблицы в файле имеют разное количество строк и столбцов.
Спасибо!

[shanemac51]

Сообщение от svetom

Файн ридер точки воспринимает как шум и не распознаёт. В настройках

хотелось бы посмотреть скан


--и я бы распознавала вручную расставленными таблицами

[svetom]

Я их и распознаю каждую таблицу вручную, расставляю границы, т.к. автоматом ФР их не видит. С этим проблем нет. Беда только с точками. скан на 500 страниц, из которых 300 - таких таблиц (пример во вложении). Единственное спасение - макрос, а я их только записывать могу, т.к. не программист, команды не знаю

[shanemac51]

а где вы сохраняете результаты распознавания(ворд/ексель)?
пришлите все же скан --посмотрю
а еще лучше каталог, в который переписывается скан при распознавании

[shanemac51]

Сообщение от svetom

. Беда только с точками. с

макрос на проход по ячейкам таблицы и если длина содержимого менее 3, то замена на точку

[Казанский]

Sub Sv()
Dim c As Cell
  For Each c In Selection.Cells
    If Len(c.Range.Text) < 3 Then c.Range.Text = "."
  Next
End Sub

[svetom]

Тему можно закрыть. Спасибо!!!