Премини към съдържанието
  • Добре дошли!

    Добре дошли в нашите форуми, пълни с полезна информация. Имате проблем с компютъра или телефона си? Публикувайте нова тема и ще намерите решение на всичките си проблеми. Общувайте свободно и открийте безброй нови приятели.

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

     

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


Виж решението Разрешен от цър-вул,

Препоръчан отговор

XEROX WorkCentre 3325

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

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

Линк към коментара
Сподели в други сайтове

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

Линк към коментара
Сподели в други сайтове

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

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

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

Линк към коментара
Сподели в други сайтове

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

Линк към коментара
Сподели в други сайтове

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

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

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

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

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

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

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

цитат:

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

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

Линк към коментара
Сподели в други сайтове

преди 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 работи като слънце

image.png.aec90f908ddb82e7badb5c8be618a262.png

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

Линк към коментара
Сподели в други сайтове

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

Линк към коментара
Сподели в други сайтове

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

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

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

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

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

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

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

 

 

Screenshot 2022-01-06 171947.png

проба.pdf

Линк към коментара
Сподели в други сайтове

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

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

Линк към коментара
Сподели в други сайтове

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

image.png.d1af3b1a720f82a8958157b68ee3e2c0.png

Линк към коментара
Сподели в други сайтове

преди 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

 

Линк към коментара
Сподели в други сайтове

При създаването на скрипта зададе ли да е Normal dotm
image.png.7fd4aeba4ef775cca61fbe4a0756a327.png

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

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

Кой каза? ;) 

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

Линк към коментара
Сподели в други сайтове

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


 

Кой каза? ;) 

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

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

Линк към коментара
Сподели в други сайтове

Добавете отговор

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

Гост
Публикацията ви съдържа термини, които не допускаме! Моля, редактирайте съдържанието си и премахнете подчертаните думи по-долу. Ако замените букви от думата със звездички или друго, за да заобиколите това предупреждение, профилът ви ще бъде блокиран и наказан!
Напишете отговор в тази тема...

×   Вмъкнахте текст, който съдържа форматиране.   Премахни форматирането на текста

  Разрешени са само 75 емотикони.

×   Съдържанието от линка беше вградено автоматично.   Премахни съдържанието и покажи само линк

×   Съдържанието, което сте написали преди беше възстановено..   Изтрий всичко

×   You cannot paste images directly. Upload or insert images from URL.

 Сподели

×
×
  • Добави ново...