Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Word
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.05.2018, 11:14   #1
svetom
Новичок
Джуниор
 
Регистрация: 01.05.2018
Сообщений: 3
По умолчанию Макрос по замене пустых ячеек таблицы

Добрый день! Очень нужна помощь!
Суть проблемы: есть таблицы (см. вложение) около 300 штук. Часть ячеек заполнена точками. Файл сканированный необходимо перенести в ворд. Файн ридер точки воспринимает как шум и не распознаёт. В настройках ФР перепробовала разные настройки, не распознает точки, хоть убейся!
Можно ли написать макрос для ворда, чтобы в выделенной области таблицы (а не во всей таблице), пустые ячейки заменялись точками. Таблицы в файле имеют разное количество строк и столбцов.
Спасибо!
Изображения
Тип файла: jpg Таблица.jpg (43.9 Кб, 130 просмотров)
svetom вне форума Ответить с цитированием
Старый 01.05.2018, 13:13   #2
shanemac51
Участник клуба
 
Аватар для shanemac51
 
Регистрация: 12.08.2010
Сообщений: 1,077
По умолчанию

Цитата:
Сообщение от svetom Посмотреть сообщение
Файн ридер точки воспринимает как шум и не распознаёт. В настройках
хотелось бы посмотреть скан


--и я бы распознавала вручную расставленными таблицами
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание

Последний раз редактировалось shanemac51; 01.05.2018 в 13:27.
shanemac51 вне форума Ответить с цитированием
Старый 01.05.2018, 13:41   #3
svetom
Новичок
Джуниор
 
Регистрация: 01.05.2018
Сообщений: 3
По умолчанию

Я их и распознаю каждую таблицу вручную, расставляю границы, т.к. автоматом ФР их не видит. С этим проблем нет. Беда только с точками. скан на 500 страниц, из которых 300 - таких таблиц (пример во вложении). Единственное спасение - макрос, а я их только записывать могу, т.к. не программист, команды не знаю
svetom вне форума Ответить с цитированием
Старый 01.05.2018, 14:04   #4
shanemac51
Участник клуба
 
Аватар для shanemac51
 
Регистрация: 12.08.2010
Сообщений: 1,077
По умолчанию

а где вы сохраняете результаты распознавания(ворд/ексель)?
пришлите все же скан --посмотрю
а еще лучше каталог, в который переписывается скан при распознавании
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание
shanemac51 вне форума Ответить с цитированием
Старый 01.05.2018, 14:07   #5
shanemac51
Участник клуба
 
Аватар для shanemac51
 
Регистрация: 12.08.2010
Сообщений: 1,077
По умолчанию

Цитата:
Сообщение от svetom Посмотреть сообщение
. Беда только с точками. с
макрос на проход по ячейкам таблицы и если длина содержимого менее 3, то замена на точку
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание
shanemac51 вне форума Ответить с цитированием
Старый 02.05.2018, 10:21   #6
Казанский
Старожил
 
Аватар для Казанский
 
Регистрация: 31.12.2010
Сообщений: 2,133
По умолчанию

Код:
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
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
Казанский вне форума Ответить с цитированием
Старый 02.05.2018, 20:25   #7
svetom
Новичок
Джуниор
 
Регистрация: 01.05.2018
Сообщений: 3
По умолчанию

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


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Заполнение пустых ячеек по условию (копирование???) при помощи макроса, Макрос для копирования диапазона ячеек на текущем листе maxscorpio Microsoft Office Excel 0 06.02.2017 09:43
StringGrid Цвет фона пустых ячеек и ячеек с текстом Mapkus Компоненты Delphi 6 07.07.2016 11:34
Вывести нужные данные из таблицы, не оставляя пустых ячеек, т.е. подряд BadBorz Microsoft Office Excel 12 24.03.2014 15:54
Вопрос по замене ячеек DTitan Microsoft Office Excel 10 11.07.2011 02:19
Макрос удаления пустых ячеек и листов книги sna1 Microsoft Office Excel 2 04.05.2011 20:49