Preskoči na glavno vsebino

Kako vstaviti sliko ali sliko iz optičnega bralnika ali fotoaparata v Word?

Morda boste imeli težave z vstavljanjem slik iz optičnega bralnika ali fotoaparata v programu Word 2007 in novejših različicah, saj je Microsoft odstranil možnost vstavljanja slike iz optičnega bralnika ali fotoaparata, ki je bila pravkar na voljo v programu Word 2003. V tej vadnici boste našli več načinov vstavljanja slik iz optičnega bralnika ali kamere v programu Word 2007 in novejših različicah.

Vstavite sliko iz optičnega bralnika ali fotoaparata v Word z bližnjicami

Vstavite sliko iz optičnega bralnika ali fotoaparata v Word, tako da ustvarite makro

Vstavite sliko iz optičnega bralnika ali fotoaparata v Word s programom Kutools for Word


Vstavite sliko iz optičnega bralnika ali fotoaparata v Word z bližnjicami

Če uporabljate Word 2007 ali Word 2010, lahko hitro dostopate do Vstavite sliko iz optičnega bralnika ali fotoaparata uporabnost, kot sledi:

1. Najprej pritisnite druga vnesite Word 2007 ali Word 2010 in nato nadaljujte s tipkanjem zaporedja tipk v meniju ips
na tipkovnici in bo prikazala Vstavite sliko iz optičnega bralnika ali fotoaparata dialog.

Po tipkanju druga najprej in i tipka, boste videli a Super Nasvet kot sledi:

Po tipkanju p in s tipka, se bo prikazala Vstavite sliko iz optičnega bralnika ali fotoaparata dialog.

Nato lahko izberete sliko iz naprave prek Vstavite sliko iz optičnega bralnika ali fotoaparata dialog.


Vstavite sliko iz optičnega bralnika ali fotoaparata v Word, tako da ustvarite makro

1. Najprej ustvarite Makro za vaš Wordov dokument. Prosim kliknite Poglej > Makri > Ogled makrov. Oglejte si posnetek zaslona:

doc vstavi sliko iz optičnega bralnika 1

2. Po kliku Ogled makrov, bo Makri pogovorno okno. Spodaj Ime makra, vtipkati "Skeniranje"; izberite Običajno. dotm (globalno predloga) Iz Makri v spustni seznam. Nato kliknite ustvarjanje. Oglejte si posnetek zaslona:

doc vstavi sliko iz optičnega bralnika 2

3. In zdaj, a Okno Microsoft Visual Basic for Applications kopirajte in prilepite naslednjo kodo v pogovorno okno, ki se nahaja med Sub skeniranje in Končaj pod linije.

Koda v letu 2013 in novejša različica:

On Error Resume Next
     Dim objCommonDialog As WIA.CommonDialog
     Dim objImage As WIA.ImageFile
     Dim strDateiname
     Set objCommonDialog = New WIA.CommonDialog
     Set objImage = objCommonDialog.ShowAcquireImage
     strDateiname = Environ("temp") & "\Scan.jpg"
     If Not objImage Is Nothing Then
       Kill strDateiname
       objImage.SaveFile strDateiname
       Selection.InlineShapes.AddPicture strDateiname
       Set objImage = Nothing
     End If
     Set objCommonDialog = Nothing

doc vstavi sliko iz optičnega bralnika 3

Koda v letih 2007 in 2010:

On Error Resume Next
WordBasic.InsertImagerScan

doc vstavi sliko iz optičnega bralnika 4

4. Zdaj bi morali klikniti Orodja > Reference Pojdite na Reference-Normal pogovorno okno, nato izberite in preverite Knjižnica Microsoft Acquisition Image možnost, glej posnetek zaslona:

doc vstavi sliko iz optičnega bralnika 5

5. Nato kliknite OK , da zaprete pogovorno okno, in zdaj pritisnite F5 tipko za zagon te kode.

Opombe: Preverite, ali je optični bralnik vklopljen in povezan z računalnikom


Vstavite sliko iz optičnega bralnika ali fotoaparata v Word s programom Kutools for Word

z Kutools za WordJe Iz optičnega bralnika ali kamere pripomočka, se lahko znebite teh nadležnih postopkov in preprosto vstavite sliko iz optičnega bralnika ali fotoaparata v besedo.

Kutools za Word : z več kot 100 priročnimi dodatki za Word, ki jih lahko brezplačno preizkusite v 60 dneh. 

1. Kazalec postavite na mesto, kamor želite vstaviti sliko.

2. Nato uporabite ta pripomoček s klikom Kutools > Več > Iz optičnega bralnika ali kamere. Oglejte si posnetek zaslona:

3. Po kliku Iz optičnega bralnika ali kamere, bo prikazal Vstavite sliko iz optičnega bralnika ali fotoaparata dialog.

O: Pod Device, izberite povezano napravo, iz katere želite uvoziti sliko.

B: Izberite katero koli Resolucija ti hočeš.

C: Kliknite Vstavi da začnete vstavljati.

Opombe: Tega pripomočka ni mogoče uporabiti za Word 2013 in novejše različice.

Kliknite za prenos Kutools za Word in brezplačno preskusno različico zdaj!

Za podrobnejše informacije o Kutools za WordJe Iz optičnega bralnika ali kamere pripomoček, obiščite: Iz optičnega bralnika ali kamere.


Najboljša pisarniška orodja za produktivnost

Kutools za Word - Izboljšajte svojo besedno izkušnjo z Over 100 Izjemne lastnosti!

🤖 Kutools AI pomočnik: Preoblikujte svoje pisanje z AI - Ustvarite vsebino  /  Prepiši besedilo  /  Povzemite dokumente  /  Povprašajte za informacije na podlagi dokumenta, vse v Wordu

📘 Obvladovanje dokumentov: Razdeljene strani  /  Spoji dokumente  /  Izvozi izbor v različnih formatih (PDF/TXT/DOC/HTML ...)  /  Paketna pretvorba v PDF  /  Izvozi strani kot slike  /  Natisnite več datotek hkrati...

Urejanje vsebine: Serijsko iskanje in zamenjava čez več datotek  /  Spremeni velikost vseh slik  /  Prenos vrstic in stolpcev tabele  /  Pretvori tabelo v besedilo...

🧹 Čiščenje brez napora: Pometite stran Dodatni prostori  /  Prelomi oddelkov  /  Vse glave  /  Besedilna polja  /  Hiperpovezave  / Za več orodij za odstranjevanje pojdite na naš Odstrani skupino...

Ustvarjalni vložki: Vstavi Tisoč ločila  /  Potrditvena polja  /  Radijske tipke  /  QR koda  /  Črtna koda  /  Tabela z diagonalno črto  /  Naslov enačbe  /  Opis slike  /  Naslov tabele  /  Več slik  / Odkrijte več v Vstavi skupino...

???? Natančne izbire: Natančna točka določene strani  /  mize  /  Oblike  /  odstavki naslova  / Izboljšajte navigacijo z več Izberite funkcije...

Izboljšave zvezdic: Hitra navigacija do katere koli lokacije  /  samodejno vstavljanje ponavljajočega se besedila  /  brez težav preklapljate med okni dokumentov  /  11 Orodja za pretvorbo...

???? Želite preizkusiti te funkcije? Kutools for Word ponuja a 60-dan brezplačni preskus, brez omejitev! 🚀
 
Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This should work in most versions 64 or 32 bit Add reference to Microsoft Windows Image Acquisition x2.0 Sub Scan() Dim objCommonDialog As WIA.CommonDialog Dim objImage As WIA.ImageFile Dim strScanName As String ' instantiate Scan WIA objects Set objCommonDialog = New WIA.CommonDialog Set objImage = objCommonDialog.ShowAcquireImage strScanName = Environ$("TEMP") & "\Scan.jpg" ' set temporary file If Not objImage Is Nothing Then If Dir(strScanName) "" Then Kill strScanName objImage.SaveFile strScanName 'save into temp file DoEvents 'Word Selection.InlineShapes.AddPicture strScanName ' insert in doc End If End Sub
This comment was minimized by the moderator on the site
I have followed ALL the instructions for loading a picture from my scanner and all that happens is a empty box outline appears on my Word 10 page?? Your help is sort. David 76 yrs young
This comment was minimized by the moderator on the site
Wow! supereasy. Thank you!
This comment was minimized by the moderator on the site
Thanks a lot for this very helpful article! The keyboard shortcut and the macro both work like a charm!
This comment was minimized by the moderator on the site
such an amazing and helpful.
This comment was minimized by the moderator on the site
So I created a Macro using the code you supplied, thank you, i was wondering if there was a way to go further and include code for the selection that you make once that Insert Image window pops up. Thanks
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations