Как сделать скоростное многостраничное сканирование (twain или wia)

@а-я · Регистрация: 21.08.2012

Студворк — интернет-сервис помощи студентам

word: макрос: как сделать скоростное многостраничное сканирование (twain или wia)

Макрос многостраничного сканирования простой. Надо чтобы диалог сканера twain или wia не закрывался после каждого сканирования.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Sub Ìàêðîñ2()
    Selection.WholeStory
    Selection.Delete Unit:=wdCharacter, Count:=1
    With ActiveWindow.ActivePane.View.Zoom
        .PageColumns = 2
        .PageRows = 1
    End With
    WordBasic.InsertImagerScan
................................................
    WordBasic.InsertImagerScan
End Sub

Сканирую из word (потому что doc в организациях самое понимаемое и распространенное расширение) Сканирую большое количество файлов, по 2-3-4-...30 страниц каждый, без распознавания.
Сканировать надо не быстро а очень быстро!!!!!!!!!!!!!!

сканер epson perfection v33. но я не хотела бы привязываться к типу сканера

Добавлено через 12 минут
[QUOTE=а-я;3377019]word: макрос: как сделать скоростное многостраничное сканирование (twain или wia)

короче мне надо как здесь

Для удобства сканирования большого количества страниц в программе ABBYY FineReader предусмотрен специальный режим сканирования: Сканировать несколько страниц. Он позволяет отсканировать несколько страниц подряд. Для того чтобы включить этот режим, отметьте опцию Сканировать несколько страниц на закладке Сканировать/Открыть диалога Опции (меню Сервис>Опции).
При этом:
при сканировании через TWAIN с использованием интерфейса TWAIN-драйвера сканера Twain-диалог сканера не закрывается после окончания сканирования первой страницы. Вы можете положить следующую страницу в сканер и отсканировать ее и т.д.

Памирыч · 22.08.2012, 11:18

Не по теме:

Сообщение от а-я

тока вот я код VBA создавала всегда только автоматом и никогда не заглядывала в него

От этого он не перестал быть кодом VBA :)
Давайте в теме не будем это выяснять. Если что-то интересует, пишите мне в личку

@а-я · 22.08.2012, 11:21 **[ТС]**

Сообщение от Памирыч

Не по теме:

От этого он не перестал быть кодом VBA :)
Давайте в теме не будем это выяснять. Если что-то интересует, пишите мне в личку

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

название которой вы кстати исправили..
а меня интересует именно word..а ещё точнее doc..
чтоб в результате максимально малого количества действий я полчила doc с пронумерованными страницами и отсканенными картинками на этих страницах

Dragokas · 22.08.2012, 22:55

Сообщение от а-я

Надо чтобы диалог сканера twain или wia не закрывался после каждого сканирования.

Как-то не соответствует требованию

Сообщение от а-я

Сканировать надо не быстро а очень быстро!!!!!!!!!!!!!!

Быстрее всего - это вообще не пользоваться диалоговыми окнами.

Объясняю:
1. Открываем FineReader -> Сервис -> Опции -> Выбираем драйвер -> Отмечаем "Использовать интерфейс AbbyyFineReader -> Кнопка "Дополнительные настройки" этого интерфейса (в разных версиях по-разному). Выбираете все нужные настройки сканирования (разрешение и т.д.).
2. Выставляем многостраничный режим сканирования.
Посмотрите также вкладку "Сохранение" -> там есть "Сохранять номера страниц". Если это не то - можно создать макрос в персональной книге макросов, который будет доступен изо всех документов Word, и на горячую клавишу повесить создание нумерации страниц.
3. Пока Вы вставляете новые фото в сканер, помечайте где-нибуть номера сосканированных изображений. Как только доходим до нужного кол-ва нет нужды прекращать процесс сканирования: Жмем по первой фотке, удерживаем Shift, жмем по последней фотке -> Сохранить (заранее можно настроить) в документ Word с опциями "Только выделенные листы".
Также на макрос для ускорения работы можно повесить авто-сохранение документа в нужном Вам месте с нужным правилом присвоения имени и авто-закрытия после сего процесса.

@Alex77755 · 22.08.2012, 23:51

Не по теме:

А может вообще отказаться от Файнридера?
Я такую работу делаю стареньким XnView.
Файл - сканировать в
Настраиваешь путь и параметры сканирования. Меняешь картинки и нажимаешь "скан"
Потом в ворде: вставить. Открываешь папку, выбираешь все файлы разом и они в ворде.
Нумерация средствами ворда

@а-я · 23.08.2012, 10:59 **[ТС]**

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

Как-то не соответствует требованию

Быстрее всего - это вообще не пользоваться диалоговыми окнами.

Объясняю:
1. Открываем FineReader -> Сервис -> Опции -> Выбираем драйвер -> Отмечаем "Использовать интерфейс AbbyyFineReader -> Кнопка "Дополнительные настройки" этого интерфейса (в разных версиях по-разному). Выбираете все нужные настройки сканирования (разрешение и т.д.).

нельзя без диалогового окна..у меня два варианта сканирования..черно белый и серый..каждый раз я это выбираю

Добавлено через 2 минуты

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

и на горячую клавишу повесить создание нумерации страниц.

страницы не просто пронумерованы..а пронумерованы в определенном формате...стр. 1 из 1 23.08.2012
то есть надо после горячей клавиши ещё лезть в изменение формата страниц? или можно пронумеровать сразу в этом формате?

Добавлено через 8 минут

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

Жмем по первой фотке, удерживаем Shift, жмем по последней фотке -> Сохранить (заранее можно настроить) в документ Word с опциями "Только выделенные листы".
Также на макрос для ускорения работы можно повесить авто-сохранение документа в нужном Вам месте с нужным правилом присвоения имени и авто-закрытия после сего процесса.

если это всё про файнридер то он не сохраняет без распознавания в word
а обходить распознавание - лишняя трата времени и сил

если конечно этот обход не сделать макросом
и кажется это не сработает..потому что блоки надо выделять вручную и писать что это картинки

Добавлено через 2 минуты

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

Также на макрос для ускорения работы можно повесить авто-сохранение документа в нужном Вам месте с нужным правилом присвоения имени и авто-закрытия после сего процесса.

интересно конечно сделать такой макрос...
при наличии времени..
и самое главное проверить..будет ли он работать и как быстро он будет работать...

а мне то надо ВСЕГО ЛИШЬ.....ЧТОБВ В ВОРДЕ НЕ ЗАКРЫВАЛОСЬ ДИАЛОГОВОЕ ОКНО СКАНИРОВАНИЯ ..ну как в файнридере

Добавлено через 6 минут

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

Не по теме:

А может вообще отказаться от Файнридера?
Я такую работу делаю стареньким XnView.
Файл - сканировать в
Настраиваешь путь и параметры сканирования. Меняешь картинки и нажимаешь "скан"
Потом в ворде: вставить. Открываешь папку, выбираешь все файлы разом и они в ворде.
Нумерация средствами ворда

да я от ридера сразу отказалась как тока увидела что он в ворд не сохраняет нераспознанное..и посмотрела как сохранить всетки нераспознанное в нем можно..выеживаясь

ну это можно делать и самим твайном...сканить в папку..и он при этом не будет закрывать диалог...
но дальше 20 файлов по 2-3-4-5...20 страниц
20 раз мне надо из твайна прыгнуть в ворд
в ворде 20 раз вставить...про нумерацию молчу..у меня шаблон с нумерацией есть

прыгать 20 раз из одной проги в другую..да ещё искать эти папки...если всё сканить в одну то я просто запутаюсь

но все равно спасибо за предложение..может оно и лежит где то вне ворда..только я пока этого не вижу..может такая прога есть..уже которая сканит картинки и сохраняет их ф 1 файл постранично

Добавлено через 9 минут
вопрос к программистам!!!!!

как мог сделать FineReader
что диалоговое окно TWAN вообще не закрывается при МНОГОСТРАНИЧНОМ сканировании????

хотя бы идею..плиз
где может этот ключик прятаться..закрывающий и не закрывающий окно?

может в кнопке CLOSE окошка TWAN???
может как то обходится её нажате?

Добавлено через 5 минут

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

1. Открываем FineReader

если бы ридер сохранял в ворд нераспознанное ..то есть сразу изображения которые он отсканил ...ему бы цены не было

))
но он это пока не умеет

toiai · 23.08.2012, 18:01

Если сканер поддерживает сканирование в формат в формат pdf, а потом вставляй в Ворд, а можно с помощью программы Above Acrobat распознать в Ворд.

Dragokas · 23.08.2012, 19:24

http://www.gssezisoft.com/main... /cmdtwain/
Ч/б:

Visual Basic
1
Shell "cmd /c ""c:\Program Files (x86)\Gss EziSoft\CmdTwain Free\CmdTwain.exe"" /PAPER=A4 /GRAY /DPI=300 /BMP E:\2\MY.BMP"

Серый:

Visual Basic
1
Shell "cmd /c ""c:\Program Files (x86)\Gss EziSoft\CmdTwain Free\CmdTwain.exe"" /PAPER=A4 /BW /DPI=300 /BMP E:\2\MY.BMP"

Следим за кол-вом файлов. Если появился новый, запускаем новый поток шелла с диалоговым окном для пользователя - хочет ли он поменять цветность.
А дальше макрос разбора файлов картинок, вставки в ворд, нумерации, форматирования и все такое прочее.

За сим откланиваюсь. С вордом я работать не умею.

@а-я · 24.08.2012, 09:14 **[ТС]**

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

Если сканер поддерживает сканирование в формат в формат pdf, а потом вставляй в Ворд, а можно с помощью программы Above Acrobat распознать в Ворд.

надо пробовать..в сканере есть даже кнопка в пдф...правда она пока ни разу не работала..надо посмотреть..и попробовать..спасибо

@а-я · 24.08.2012, 09:35 **[ТС]**

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

Если сканер поддерживает сканирование в формат в формат pdf, а потом вставляй в Ворд, а можно с помощью программы Above Acrobat распознать в Ворд.

кнопка пдф есть на сканере даже..правда она у меня пока так и не заработала..но надо попробовать..чисто теоретически я пока не могу проанализировать процесс..распозавать документы пока не требовали..я думаю и не нужно это будет никогда..в сущности их используют как ксерокопии электронные

Добавлено через 4 минуты

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

Следим за кол-вом файлов. Если появился новый, запускаем новый поток шелла с диалоговым окном для пользователя - хочет ли он поменять цветность.

цветность меняется внутри файла..есть страницы черно-белые и есть серые..впрочем я не спец в вба и то что было написано выше этой фразы для меня пока темный лес..я правда поняла что это про выбор цветности

Добавлено через 3 минуты

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

А дальше макрос разбора файлов картинок, вставки в ворд, нумерации, форматирования и все такое прочее.

да сложноватый макрос получится..я даже схему пока что себе плохо представляю..но возможно что такие сложные макросы и сделают всё одной кнопкой..
у меня например есть такой.. который одной кнопкой жмет текст так..что дальше уже некуда..и в результате. печатаешь страниц раз в несколько меньше

тоже надо думать..как его сделать..если будет время..

с понедельника сканирующий чел идет в отпуск на 3 недели и к моей обычной работе прибавится ещё и сканирование документов..

причём часто оно срочное и неотложное..работа будет такая что из всех срочных придется выбирать самую срочную

КОРОЧЕ НЕ УСПЕЛА Я РЕШИТЬ ЭТОТ ВОПРОС..

Добавлено через 5 минут

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

За сим откланиваюсь. С вордом я работать не умею.

да в ворде то у меня тока готовый шаблон с нумерацией страниц..вставка со сканера...и сохранение файлов с ФИО
от ворда к сожалению никак не уйти..потому что в этих организациях ..куда идет почтовка с копиями..тока ворд и умеют читать

кстати ПОЧТОВКА....может её поизучать..может сразу и в почту..ещё быстрее получится

у нас почту отправляет ещё один чел..я тока передаю ему файлы

))))))))))))))

@а-я · 11.09.2012, 11:52 **[ТС]**

ну вот..форум меня пригласил и я пришла а в моей теме нет ничего нового..а вот у меня за это время появились новые запросы

1. могу сканить с первой страницы документов ФИО распознавать его в ридере ..копировать и переходить в ворд...
ну пока ридер не придумал как сохранять в ворд нераспознанное я буду бежать по накатанной дорожке...сканить сканиь сканить странички в ворде..потом сохранять файл как...и вставлять из буфера ФИО

2 а тут я не знаю как сделать..откуда начинать танцевать не знаю...я должна сохранить файл в определенное место (папку) должна запонить имя файла...имя папка куда сохраняю и время и дату сохранения..и эту инфу тоже записать в какой нить файл.
думаю конечно это проще всего сделать в почтивике..потому что всё это функции почтовика..правильно ли я думаю?

3 и человеку которому я перешлю эти файлы..проще будет (проще ли?) преслатьмои письма чем писать новые

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@Alex77755
	22.08.2012, 23:51
	Не по теме: А может вообще отказаться от Файнридера? Я такую работу делаю стареньким XnView. Файл - сканировать в Настраиваешь путь и параметры сканирования. Меняешь картинки и нажимаешь "скан" Потом в ворде: вставить. Открываешь папку, выбираешь все файлы разом и они в ворде. Нумерация средствами ворда 0

toiai 3218 / 967 / 223 Регистрация: 29.05.2010 Сообщений: 2,087
	23.08.2012, 18:01
	Если сканер поддерживает сканирование в формат в формат pdf, а потом вставляй в Ворд, а можно с помощью программы Above Acrobat распознать в Ворд. 0

@а-я 0 / 0 / 0 Регистрация: 21.08.2012 Сообщений: 15
	11.09.2012, 11:52 [ТС]
	ну вот..форум меня пригласил и я пришла а в моей теме нет ничего нового..а вот у меня за это время появились новые запросы 1. могу сканить с первой страницы документов ФИО распознавать его в ридере ..копировать и переходить в ворд... ну пока ридер не придумал как сохранять в ворд нераспознанное я буду бежать по накатанной дорожке...сканить сканиь сканить странички в ворде..потом сохранять файл как...и вставлять из буфера ФИО 2 а тут я не знаю как сделать..откуда начинать танцевать не знаю...я должна сохранить файл в определенное место (папку) должна запонить имя файла...имя папка куда сохраняю и время и дату сохранения..и эту инфу тоже записать в какой нить файл. думаю конечно это проще всего сделать в почтивике..потому что всё это функции почтовика..правильно ли я думаю? 3 и человеку которому я перешлю эти файлы..проще будет (проще ли?) преслатьмои письма чем писать новые 0