Как сделать скоростное многостраничное сканирование (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-диалог сканера не закрывается после окончания сканирования первой страницы. Вы можете положить следующую страницу в сканер и отсканировать ее и т.д.

@Апострофф · 21.08.2012, 11:44

Комментарий модератора

Читаем правила форума
5.4. Запрещено размещать тему в нескольких разделах одновременно (кросспостинг)

@а-я · 21.08.2012, 11:47 **[ТС]**

Апострофф, но ведь вопрос касается двух форумов

word и vba

@Апострофф · 21.08.2012, 11:57

а-я, в данном разделе разговор про макросы неуместен!
А правила следует соблюдать

@а-я · 21.08.2012, 12:08 **[ТС]**

Сообщение от Апострофф

а-я, в данном разделе разговор про макросы неуместен!
А правила следует соблюдать

прошу прощения ..я новичок..почему неуместен? разве я не в разделе ворда? разве в ворде нет макросов?

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

Сообщение от Апострофф

а-я, в данном разделе разговор про макросы неуместен!
А правила следует соблюдать

подскажите плиз..какой форум более просматриваемый? дело в том что в VBA даже просмотров нет

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

и ещё..можно ли делать поиск внутри раздела?

@Busine2012 · 21.08.2012, 12:18

а-я,

какого года у вас Word?
напишите, как вы сканируете сейчас без использования макроса, а именно: какие кнопки нажимаете в программе Word.

@а-я · 21.08.2012, 12:37 **[ТС]**

word 2003
вставка -рисунка-со сканера

в макросе я повторяю этот процесс

для многостраничности

повторяю 30 раз...потому что максимальное количество страниц кажется не было более 24

@Busine2012 · 21.08.2012, 12:48

а-я, а если сначала просто отсканировать, как обычно сканируют, а затем уже рисунки вставить в документ Word?

@а-я · 21.08.2012, 13:10 **[ТС]**

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

я пробовала это делать из файнридера

думала чтобы вызвать документ сканнинг из ворда...это всё дольше

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

Добавлено через 2 минуты
причем в документации об эпсоне в33 есть строчка Пакетное сканирование;
и Сканирование в приложение;..но не в ворд кажется..и пакетное тока в пдф

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

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

а-я, а если сначала просто отсканировать, как обычно сканируют, а затем уже рисунки вставить в документ Word?

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

а в ридере ваще заморочки из бочки..он не сканит без рапознавания..и это приходится обходить

Добавлено через 12 минут
лучшим выходом мне кажется была бы возможность сделать многостраничность в самом твайне..
худшим...писать код..который видимо есть в finereader и в
microsoft office document scanning...там есть кнопки многостраничного скана..а значит это программно сделано

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

@Busine2012 · 21.08.2012, 14:59

а-я, а через FineReader не получается сделать? Сканировать в документ Word?

Вот такой код подойдёт?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Макрос1()
    
    Do
        
        If MsgBox("Сканирование.", vbInformation + vbOKCancel) = vbCancel Then
            Exit Do
        End If
        
        'Если в диалоговых окнах откажутся от сканирования,
        'то произойдёт ошибка.
        On Error GoTo metka
            'Вызов диалогового окна для сканирования.
            WordBasic.InsertImagerScan
        'Чтобы другие ошибки отслеживать.
        On Error GoTo 0
    Loop
    
metka:
 
End Sub

@а-я · 21.08.2012, 16:20 **[ТС]**

очень жаль...посмотрите
этот короче на одно окно = сканирование - ок

Visual Basic
1
2
3
4
5
6
7
Sub Макрос2()
'
' Макрос2 Макрос
' Макрос записан 21.08.2012 STN
    WordBasic.InsertImagerScan
    WordBasic.InsertImagerScan    
End Sub

но самое противное в обоих макросах ...и в вашем и моем всетки закрывается диалог сканера

посмотрите в файнридере.. где многостраничное сканирование..вот я хочу так сканировать

Добавлено через 1 минуту
я уже всю голову сломала об этот твайн

)) и самое ужасное моя то работа стоит...и ждет када я её буду работать..а я никак не могу отвязаться от этого твайна

@Busine2012 · 21.08.2012, 16:25

а-я, я не понял вашего ответа на моё сообщение #10.

@а-я · 21.08.2012, 16:38 **[ТС]**

я попробовала ваш код..он длиннее моего на одно действие..и все равно окно диалога сканера у вас тоже закрывается

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

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

Visual Basic
1
2
3
4
5
6
7
Sub Макрос2()
 '
 ' Макрос2 Макрос
 ' Макрос записан 21.08.2012 STN
 WordBasic.InsertImagerScan
 WordBasic.InsertImagerScan 
 End Sub

эта строчка у меня просто повторена 30 раз
WordBasic.InsertImagerScan

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

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

)

Добавлено через 47 секунд
ушла...завтра вернусь

@Busine2012 · 21.08.2012, 16:50

а-я, я не знаю, как макрос тогда сделать, может кто другой напишет.

А через FineReader не получается сделать? Сканировать в документ Word?

Без дополнительного диалогового окна:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Макрос1()
    
    Do
        
        'Если в диалоговых окнах откажутся от сканирования,
        'то произойдёт ошибка.
        On Error GoTo metka
            'Вызов диалогового окна для сканирования.
            WordBasic.InsertImagerScan
        'Чтобы другие ошибки отслеживать.
        On Error GoTo 0
    Loop
    
metka:
 
End Sub

Fairuza · 21.08.2012, 17:41

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

а в ридере ваще заморочки из бочки..он не сканит без рапознавания..и это приходится обходить

Сканировать все листы, а потом сохранить пакет. Никакого распознавания в этом случае не требуется. При необходимости открываете пакет и распознаете.

@а-я · 22.08.2012, 08:58 **[ТС]**

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

впрочем я щас это попробую

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

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

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

а-я, я не знаю, как макрос тогда сделать, может кто другой напишет.

А через FineReader не получается сделать? Сканировать в документ Word?
[/VB]

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

помните? в ворде у меня всего лишь 2 лишних окошка....спец вставка и твайн

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

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

Добавлено через 13 минут
плиз.. как вставить аватарку?

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

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

Сканировать все листы, а потом сохранить пакет. Никакого распознавания в этом случае не требуется. При необходимости открываете пакет и распознаете.

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

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

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

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

а-я, я не знаю, как макрос тогда сделать, может кто другой напишет.

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

а макрос уже написали файнридер

)))) тока вот какой именно?

вот в чем вопрос

и мне кажется от того что они не позволили работать с нераспознанным они тока сами себя же и обокрали
кстати этот их макрос называется Abby ScanManager 7.0

Памирыч · 22.08.2012, 09:55

а-я, все что касается макросов и кода - размещайте в разделе VBA. Перенесено.
Ворд или Эксель - неважно, VBA он и в Африке VBA

@а-я · 22.08.2012, 09:57 **[ТС]**

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

а-я, все что касается макросов и кода - размещайте в разделе VBA. Перенесено.
Ворд или Эксель - неважно, VBA от и в Африке VBA

так меня вчера оттуда удалил ваш мод

завтра он меня перетащит в ворд или в ридер

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

)) иногда собаки дружат с кошками и даже с мышками

Памирыч · 22.08.2012, 10:00

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

так меня вчера оттуда удалил ваш мод

Где у модератора есть права, он там и наводит порядок. А там было дублирование (кросспостинг)
Теперь обсуждайте в этой теме, и не создавайте подобное в разделе софта.

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

слушаюсь

и повинуюсь

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

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

Где у модератора есть права, он там и наводит порядок. А там было дублирование (кросспостинг)
Теперь обсуждайте в этой теме, и не создавайте подобное в разделе софта.

хорошо хорошо..тока вот я код VBA создавала всегда только автоматом и никогда не заглядывала в него ..кроме этого раза

а можно маааленький вопросик..
вы точно знаетете что эта задачка решается ТОЛЬКО с помощью VBA????

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@а-я 0 / 0 / 0 Регистрация: 21.08.2012 Сообщений: 15
	21.08.2012, 11:47 [ТС]
	Апострофф, но ведь вопрос касается двух форумов word и vba 0

@Апострофф 9908 / 3928 / 742 Регистрация: 11.10.2011 Сообщений: 5,908
	21.08.2012, 11:57
	а-я, в данном разделе разговор про макросы неуместен! А правила следует соблюдать 0

@Busine2012 1302 / 404 / 22 Регистрация: 21.10.2011 Сообщений: 1,285
	21.08.2012, 12:18
	а-я, какого года у вас Word? напишите, как вы сканируете сейчас без использования макроса, а именно: какие кнопки нажимаете в программе Word. 0

@а-я 0 / 0 / 0 Регистрация: 21.08.2012 Сообщений: 15
	21.08.2012, 12:37 [ТС]
	word 2003 вставка -рисунка-со сканера в макросе я повторяю этот процесс для многостраничности повторяю 30 раз...потому что максимальное количество страниц кажется не было более 24 0

@Busine2012 1302 / 404 / 22 Регистрация: 21.10.2011 Сообщений: 1,285
	21.08.2012, 12:48
	а-я, а если сначала просто отсканировать, как обычно сканируют, а затем уже рисунки вставить в документ Word? 0

@Busine2012 1302 / 404 / 22 Регистрация: 21.10.2011 Сообщений: 1,285
	21.08.2012, 16:25
	а-я, я не понял вашего ответа на моё сообщение #10. 0

Памирыч Почетный модератор 23251 / 9163 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	22.08.2012, 09:55
	а-я, все что касается макросов и кода - размещайте в разделе VBA. Перенесено. Ворд или Эксель - неважно, VBA он и в Африке VBA 0