Hoppa till huvudinnehåll

Hur infogar jag bild eller bild från skanner eller kamera i Word?

Du kan få problem med att infoga bilder från skannern eller kameran i Word 2007 och senare version eftersom Microsoft tog bort möjligheten att infoga en bild från en skanner eller kamera som just fanns i Word 2003. Denna handledning visar dig flera metoder för att infoga bilder från skanner eller kamera i Word 2007 och senare version.

Infoga bild från skannern eller kameran i Word med hjälp av genvägar

Infoga bild från skannern eller kameran i Word genom att skapa makro

Infoga bild från skanner eller kamera i Word med Kutools för Word


Infoga bild från skannern eller kameran i Word med hjälp av genvägar

Om du använder Word 2007 eller Word 2010 kan du snabbt komma åt Infoga bild från skanner eller kamera verktyget enligt följande:

1. Tryck först andra -tangenten i Word 2007 eller Word 2010 och fortsätt sedan att skriva menyknappsekvensen ips
på tangentbordet, och det visar Infoga bild från skanner eller kamera dialog.

Efter att ha skrivit andra första och i nyckel, du ser en Supertips enligt följande:

Efter att ha skrivit p och s tangenten, kommer den att dyka upp Infoga bild från skanner eller kamera dialog.

Sedan kan du välja bild från enheten via Infoga bild från skanner eller kamera dialog.


Infoga bild från skannern eller kameran i Word genom att skapa makro

1. För det första bör du skapa en Makro för ditt Word-dokument. var god klicka utsikt > Makron > Visa makron. Se skärmdump:

doc infoga bild från skannern 1

2. Efter att ha klickat Visa makron, det kommer vara en Makron dialog dyker upp. Under Makronamn, Skriv in "scan”; Välj Vanligt. dotm (global mall) från Makroer i listrutan. Klicka sedan Skapa. Se skärmdump:

doc infoga bild från skannern 2

3. Och nu, a Microsoft Visual Basic for Applications-fönstret dyker upp, vänligen kopiera och klistra in följande kod i dialogrutan mellan Undersökning och Slut del rader.

Kod 2013 och senare version:

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 infoga bild från skannern 3

Kod 2007 och 2010:

On Error Resume Next
WordBasic.InsertImagerScan

doc infoga bild från skannern 4

4. Nu ska du klicka verktyg > Referensprojekt för att gå till Referenser-Normal dialogrutan, välj och markera sedan Microsoft Windows Image Acquisition Library alternativ, se skärmdump:

doc infoga bild från skannern 5

5. Klicka sedan OK för att stänga dialogrutan och tryck nu på F5 nyckel för att köra den här koden.

Anmärkningar: Se till att skannern är på och ansluten till datorn


Infoga bild från skanner eller kamera i Word med Kutools för Word

Med Kutools för WordÄr Från skanner eller kamera verktyget kan du bli av med de irriterande åtgärderna och enkelt sätta in bild från skannern eller kameran i ord.

Kutools för Word : med mer än 100 praktiska Word-tillägg, gratis att prova utan begränsning på 60 dagar. 

1. Placera markören där du vill infoga bilden.

2. Använd sedan detta verktyg genom att klicka Kutools > Snarare > Från skanner eller kamera. Se skärmdump:

3. Efter att ha klickat Från skanner eller kameravisas den Infoga bild från skanner eller kamera dialog.

A: Under Anordningväljer du den relaterade enheten som du vill importera bilden från.

B: Välj valfri Upplösning du vill.

C: Klicka Insert för att börja infoga.

Anmärkningar: Detta verktyg kan inte tillämpas för Word 2013 och senare version.

Klicka för att ladda ner Kutools for Word och gratis testversion nu!

För mer detaljerad information om Kutools för WordÄr Från skanner eller kamera verktyg, besök: Från skanner eller kamera.


Bästa kontorsproduktivitetsverktyg

Kutools för Word - Höj din ordupplevelse med Over 100 Anmärkningsvärda funktioner!

🤖 Kutools AI Assistant: Förvandla ditt skrivande med AI - Generera innehåll  /  Skriv om text  /  Sammanfatta dokument  /  Fråga för information baserat på dokument, allt i Word

📘 Dokumentbehärskning: Dela sidor  /  Sammanfoga dokument  /  Exportera urval i olika format (PDF/TXT/DOC/HTML...)  /  Batchkonvertera till PDF  /  Exportera sidor som bilder  /  Skriv ut flera filer samtidigt...

Innehållsredigering: Batch Hitta och ersätt över flera filer  /  Ändra storlek på alla bilder  /  Transponera tabellrader och kolumner  /  Konvertera tabell till text...

🧹 Enkel rengöring: Svep bort Extra utrymmen  /  Avsnitt bryter  /  Alla rubriker  /  Textrutor  /  Hyperlänkar  / För fler borttagningsverktyg, gå till vår Ta bort gruppen...

Kreativa inlägg: Föra in Tusen avskiljare  /  Kryssrutor  /  radio Knappar  /  QR-kod  /  Streckkod  /  Diagonal linjebord  /  Bildtext för ekvation  /  Bild Bildtext  /  Tabelltextning  /  Flera bilder  / Upptäck mer i Infoga grupp...

🔍 Precisionsval: Precisera specifika sidor  /  Tabellerna  /  former  /  rubrikerna  / Förbättra navigering med mer Välj funktioner...

Stjärnförbättringar: Navigera snabbt till vilken plats som helst  /  infoga repetitiv text automatiskt  /  växla sömlöst mellan dokumentfönster  /  11 Konverteringsverktyg...

👉 Vill du prova dessa funktioner? Kutools för Word erbjuder en 60-dagars gratis försök, utan begränsningar! 🚀
 
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