Търся програма за сканиране на лична карта на една страница

[2249]

XEROX WorkCentre 3325

Търся софтуер /по възможност безплатен/, с който да мога да сканирам лична карта на една страница. Наличният софтуер към машината не предлага такава възможност.

Моля да се предлагат само пробвани продукти. И да - знам, че първо мога да копирам картата на една страница и после тази страница да я сканирам. Търся директен скан на една страница.

[Raze]

Сканираш 2 пъти от всяка страна (предполагам това ти е идеята) в снимков формат и после с paint ги съединяваш в 1 страница.

[2249]

преди 5 минути, Raze написа:

Сканираш 2 пъти от всяка страна (предполагам това ти е идеята) в снимков формат и после с paint ги съединяваш в 1 страница.

Не си разбрал идеята. Слагам картата от страна 1 и натискам копче. Слагам картата от страна 2 и натискам копче. След това файлът се записва като .pdf, .jpg ... и представлява една страница със сканираната карта от дветес трани. По-подробно няма как да го обясня ... Такава опция има в оригиналния софтуер на машината, но е за копиране, не за сканиране.

[Raze]

Аз затова ти предлагам да си го правиш ръчно, става за секунди с paint. После с десен бутон върху image файла, print, избираш pdf и си готов. Иначе не съм чувал да има такъв софтуер, евентуално някой друг може да знае.

[нушо]

Виж упътването цък :страница 72

[dimy]

цитат:

Боже, колко мъка има по света!

[2249]

преди 2 часа, Raze написа:

Аз затова ти предлагам да си го правиш ръчно, става за секунди с paint. После с десен бутон върху image файла, print, избираш pdf и си готов. Иначе не съм чувал да има такъв софтуер, евентуално някой друг може да знае.

Ръчно го правя и с Word. Отнема същото време.

преди 1 час, нушо написа:

Виж упътването цък :страница 72

Виж темата от самото й начало. За пореден път пиша - не искам да копирам, искам да сканирам.

преди 5 минути, dimy написа:

цитат:

Боже, колко мъка има по света!

Нещо си се объркал май ...

[lupis]

преди 4 часа, 2249 написа:

Не си разбрал идеята. Слагам картата от страна 1 и натискам копче. Слагам картата от страна 2 и натискам копче. След това файлът се записва като .pdf, .jpg ... и представлява една страница със сканираната карта от дветес трани. По-подробно няма как да го обясня ... Такава опция има в оригиналния софтуер на машината, но е за копиране, не за сканиране.

Вместо да търсиш невъзможното, е най- лесно да принтираш картата от двете страни на един лист и след това да сканираш листа в какъвто искаш формат.

Иначе в A4Scandoc има възможност за двустранно сканиране, ама на практика не съм я пробвал и най- вероятно ще ти направи 2 страници в един файл.

[цър-вул]

https://sites.google.com/site/robertjkarp/home/microsoft-office/enable-insert-picture-from-scanner-in-word
https://borncity.com/win/2016/03/03/sscanning-in-word-20132016-part-i/
с този модул:

Sub Scan()
'Requires a reference to Microsoft Windows Image Acquisition Object Library
Dim objCommonDialog As WIA.CommonDialog
Dim objImage As WIA.ImageFile
Dim strPath As String

On Error Resume Next
Set objCommonDialog = New WIA.CommonDialog
Set objImage = objCommonDialog.ShowAcquireImage
strPath = Environ("TEMP") & "\TempScan.jpg" ' set temporary file

If Not objImage Is Nothing Then
objImage.SaveFile strPath ' save into temporary file
' Insert in Word Document
Selection.InlineShapes.AddPicture strPath

'+++++++++++++++++++++++++++++++++++++
' Insertion alternatives


' Insert in Excel worksheet
'ActiveSheet.Pictures.Insert(strPath).Select

'Insert into Outlook message
'If TypeName(ActiveWindow) = "Inspector" Then
' If ActiveInspector.IsWordMail And ActiveInspector.EditorType = olEditorWord Then
' ActiveInspector.WordEditor.Application.Selection.InlineShapes.AddPicture strPath
' End If
'End If
'+++++++++++++++++++++++++++++++++++++
Set objImage = Nothing
End If
If Not Dir(strPath) = vbNullString Then Kill strPath 'Remove the temporary file
Set objCommonDialog = Nothing
End Sub

В word 2021 работи като слънце



При натискане на заградения в червено бутон от позицията на курсора вмъква след сканиране картинка от скенера
Не можах да го накарам да събере на един ред двете картинки

[цър-вул]

Не можах да го накарам да събере на един ред двете картинки

[Iztre6tel]

Scan2PDF

http://www.koma-code.de/

[цър-вул]

преди 2 минути, Iztre6tel написа:

Scan2PDF

Как се събират в една страница 2 сканирания?

[Iztre6tel]

ами не помня точно. струва ми се, че ставаше лесно, но минаха години, може и да бъркам. в понеделник ще пробвам, сега нямам скенер.

[Iztre6tel]

Става. Лесно е.

1.      Избираш PRO-MODE от меню VIEW

2.      Настройваш си страницата в левия панел. Задаваш размери на лице и гръб на личната карта. Но може и сетне с мишката

3.      Скановете би следвало да ти се показват в десния панел. Можеш да ги въртиш и добавяш.

4.      Като ти хареса гледката, съхраняваш в пдф.

ТРЯБВА да си поиграеш с настройките. Имаш бонус, че скановете ти са еднотипни.

Не пропускай да зададеш 100 процента изглед с лупата.

 

 

проба.pdf

[2249]

@цър-вул MS Office LTSC Pro Plus 2021

Стъпките ги правя една по една, вкл и и активирането на Microsoft Windows Image Acquisition Library v2.0. Явно скриптът не сработва за тази висока версия.

[цър-вул]

Показал съм а Офис 2021 с този скрипт резултата. Нещо си объркал. Изтрий скрипта и започни отново.  
Ето картинка при стартиране на скрипта (кликване по бутона [А])

[цър-вул]

Ето и картинка от редактора:

[2249]

Три пъти правя и трия. Само си мига курсора и нищо друго.

[цър-вул]

Нали скрипта от картинката(постнатия по-горе) ползваш?

[2249]

преди 8 минути, цър-вул написа:

Нали скрипта от картинката(постнатия по-горе) ползваш?

Да, твоя, който публикува снощи.

Sub Scan()
'Requires a reference to Microsoft Windows Image Acquisition Object Library
Dim objCommonDialog As WIA.CommonDialog
Dim objImage As WIA.ImageFile
Dim strPath As String

On Error Resume Next
Set objCommonDialog = New WIA.CommonDialog
Set objImage = objCommonDialog.ShowAcquireImage
strPath = Environ("TEMP") & "\TempScan.jpg" ' set temporary file

If Not objImage Is Nothing Then
objImage.SaveFile strPath ' save into temporary file
' Insert in Word Document
Selection.InlineShapes.AddPicture strPath

'+++++++++++++++++++++++++++++++++++++
' Insertion alternatives


' Insert in Excel worksheet
'ActiveSheet.Pictures.Insert(strPath).Select

'Insert into Outlook message
'If TypeName(ActiveWindow) = "Inspector" Then
' If ActiveInspector.IsWordMail And ActiveInspector.EditorType = olEditorWord Then
' ActiveInspector.WordEditor.Application.Selection.InlineShapes.AddPicture strPath
' End If
'End If
'+++++++++++++++++++++++++++++++++++++
Set objImage = Nothing
End If
If Not Dir(strPath) = vbNullString Then Kill strPath 'Remove the temporary file
Set objCommonDialog = Nothing
End Sub

 

[цър-вул]

Скенерът на линия ли е(включен)?

[2249]

преди 6 минути, цър-вул написа:

Скенерът на линия ли е(включен)?

Да, ползвам го.

[цър-вул]

При създаването на скрипта зададе ли да е Normal dotm

на 6.01.2022 г. в 14:26, lupis написа:

Вместо да търсиш невъзможното

Кой каза?  

Аз вчера отвъртях към 3 часа да го направя. Е, сега ще е за 10 минути....  

[lupis]

преди 37 минути, цър-вул написа:

 

Кой каза?  

Аз вчера отвъртях към 3 часа да го направя. Е, сега ще е за 10 минути....  

E, аз вече видях, че става. С програмката на Iztre6tel става за секунди, но и твоя начин е вариант.

[цър-вул]

Няма начин да няма начин! Важно е да се намери правилният!