OCR форумы Добро пожаловать, Гость. Пожалуйста, выберите Вход или Регистрация
Форум переведен из кодировки UTF-8 в кодировку WINDOWS-1251. По всем вопросам, связанным с кодировкой текста (появлением «кракозябр»), обращайтесь к Администратору.
The forum is translated from the UTF-8 encoding to the WINDOWS-1251 encoding. For all questions related to the encoding of the text (the appearance of 'krakozyabr'), please contact the Administrator.
 
  ГлавнаяСправкаПоискВходРегистрация Администратор Библиотека  
 
Переключение на Главную Страницу Страниц: 1
Послать Тему Печать
Как удалять линии после OCR (Прочитано 3131 раз)
heleknar
Новичок
*
Вне Форума


Всем привет!

Сообщений: 11
Пол: male
Как удалять линии после OCR
18.06.2006 :: 17:46:19
 
После передачи из ФР в Ворд появляются вертикальные и горизонатльные линии. В основном посередине разворота. Как графический обьект они не ищутся. Каким образом можно от них избавится?

UPDATE
Выложил пример, из того что сейчас распознаю.
Наверх
« Последняя редакция: 18.06.2006 :: 19:50:10 от heleknar »  

sample.rar (Вложенный файл удален)
 
IP записан
 
amyatishkin
Активист
***
Вне Форума


Всем привет!

Сообщений: 426
Re: Как удалять линии после OCR
Ответ #1 - 18.06.2006 :: 19:13:33
 
Пример можно? 1-2 стр.
Наверх
 
 
IP записан
 
Balabol
Новичок
*
Вне Форума


Всем привет!

Сообщений: 40
Re: Как удалять линии после OCR
Ответ #2 - 19.06.2006 :: 06:54:20
 
У меня было такое в FR7 при сохранении в doc в режиме "сохранить полное оформление". В моем старом Worde-97  можно выбрать линию курсором (или обвести несколько линий сразу стрелкой "Выбор объектов" с панели "Рисование") и  нажать на Del, чтобы избавиться.
Наверх
 
 
IP записан
 
Motorocker
Новичок
*
Вне Форума


Всем привет!

Сообщений: 5
Re: Как удалять линии после OCR
Ответ #3 - 26.07.2006 :: 17:14:20
 
Во-первых, снять галочку «Сохранять картинки» при сохранении из FineReader
А в готовом тексте можно использовать макрос – удалять всю графику. Я это сделал из Delphi, в Word'е даже проще будет.

Count:= WordDoc.Shapes.Count;

if Count>0 then begin
  for i:= 1 to Count do begin
     wIndex:= 1;
     WordDoc.Shapes.Item(wIndex).Delete;
  end;
end;
Наверх
 
 
IP записан
 
Переключение на Главную Страницу Страниц: 1
Послать Тему Печать