Gå til hovedindhold

Hvordan indsættes billede eller billede fra scanner eller kamera i Word?

Du kan komme i problemer med at indsætte billeder fra scanneren eller kameraet i Word 2007 og senere version, da Microsoft fjernede muligheden for at indsætte et billede fra en scanner eller et kamera, der lige var tilgængeligt i Word 2003. Denne vejledning viser dig flere metoder til at indsætte billeder fra scanner eller kamera i Word 2007 og nyere version.

Indsæt billede fra scanner eller kamera i Word ved hjælp af genveje

Indsæt billede fra scanner eller kamera i Word ved at oprette makro

Indsæt billede fra scanner eller kamera i Word med Kutools til Word


Indsæt billede fra scanner eller kamera i Word ved hjælp af genveje

Hvis du bruger Word 2007 eller Word 2010, kan du hurtigt få adgang til Indsæt billede fra scanner eller kamera hjælpeprogram som følger:

1. Tryk først på andre indtast Word 2007 eller Word 2010, og fortsæt derefter med at skrive menutastens rækkefølge ips
på dit tastatur, og det viser Indsæt billede fra scanner eller kamera dialogen.

Efter indtastning andre første og i nøgle, vil du se en Super tip som følger:

Efter indtastning p , s nøgle, det popper op Indsæt billede fra scanner eller kamera dialogen.

Derefter kan du vælge billede fra enheden gennem Indsæt billede fra scanner eller kamera dialogen.


Indsæt billede fra scanner eller kamera i Word ved at oprette makro

1. For det første skal du oprette en Makro til dit Word-dokument. Klik venligst Specifikation > Makroer > Se makroer. Se skærmbillede:

doc indsæt billede fra scanner 1

2. Efter at have klikket Se makroer, vil der være en Makroer dialog dukker op. Under Makronavn, indtaste "Scan”; Vælg Normal. dotm (globalt skabelon) fra Makroer i rulleliste. Klik derefter på Opret. Se skærmbillede:

doc indsæt billede fra scanner 2

3. Og nu, en Vinduet Microsoft Visual Basic til applikationer dukker op, skal du kopiere og indsætte følgende kode i dialogboksen, der ligger mellem Sub-scanning , Slut del linjer.

Kode i 2013 og senere 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 indsæt billede fra scanner 3

Kode i 2007 og 2010:

On Error Resume Next
WordBasic.InsertImagerScan

doc indsæt billede fra scanner 4

4. Nu skal du klikke Værktøj > Referencer at gå til Referencer-Normal dialogboks, og vælg derefter og kontroller Microsoft Windows Image Acquisition Library mulighed, se skærmbillede:

doc indsæt billede fra scanner 5

5. Klik derefter på OK for at lukke dialogboksen, og tryk nu på F5 nøgle til at køre denne kode.

Bemærk: Kontroller, at scanneren er tændt og tilsluttet computeren


Indsæt billede fra scanner eller kamera i Word med Kutools til Word

Med Kutools for Word's Fra scanner eller kamera værktøj, kan du slippe af med de irriterende handlinger og nemt indsætte billede fra scanneren eller kameraet i word.

Kutools for Word : med mere end 100 praktiske Word-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 60 dage. 

1. Placer markøren, hvor du vil indsætte et billede.

2. Anvend derefter dette værktøj ved at klikke på Kutools > Mere > Fra scanner eller kamera. Se skærmbillede:

3. Efter at have klikket Fra scanner eller kamera, viser den Indsæt billede fra scanner eller kamera dialogen.

A: Under Enhed, vælg den relaterede enhed, som du vil importere billede fra.

B: Vælg en hvilken som helst Løsning du vil have.

C: Klik indsatte for at begynde at indsætte.

Bemærk: Dette værktøj kan ikke anvendes til Word 2013 og nyere version.

Klik for at downloade Kutools til Word og gratis prøveversion nu!

For mere detaljeret information om Kutools for Word's Fra scanner eller kamera værktøj, besøg venligst: Fra scanner eller kamera.


Bedste kontorproduktivitetsværktøjer

Kutools for Word - Forøg din Word-oplevelse med Over 100 Bemærkelsesværdige funktioner!

Dyk ned i de fremhævede funktioner nedenfor eller klik her for at udforske den fulde kraft af Kutools for Word.

📘 Dokumentbeherskelse: Opdelt sider  /  Flet dokumenter  /  Eksporter udvalg i forskellige formater (PDF/TXT/DOC/XLSX)  /  Batch Konverter til PDF  /  Eksporter sider som billeder  /  Udskriv flere filer på én gang ...

Indholdsredigering: Batch Find og erstat på tværs af flere filer   /  Ændr størrelse på alle billeder   /  Transponer tabelrækker og kolonner  /  Konverter tabel til tekst ...

🧹 Ubesværet rengøringFej væk Ekstra pladser  /  Afsnit bryder  /   Alle overskrifter  /  Tekstbokse  /  Hyperlinks  /  For flere fjernelsesværktøjer, gå til vores Fjerngruppe

Kreative indlæg: indsatte Tusind adskillere  /  Afkrydsningsfelter  /  Radio knapper  /  QR kode  /  Stregkode  /  Diagonal linjebord  /  Ligningstekst  /  Billede Caption  /  Tabeltekst  /  Flere billeder  /  Opdag mere i vores Indsæt-gruppe

???? Præcisionsvalg: Find bestemte sider  /  tabeller  /  former  /  overskrifter  /  Naviger nemt ved hjælp af vores udvalgte gruppe

Stjerneforbedringer: Naviger hurtigt til ethvert sted  /  automatisk indsæt gentagende tekst  /  skifte problemfrit mellem dokumentvinduer  /  11 Konverteringsværktøjer ...

Transformer dine Word-opgaver med Kutools. 👉 Download med 30-dages prøveversion nu 🚀.

Læs mere       Gratis download      Køb
 
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