{"id":318248,"date":"2025-11-17T00:05:24","date_gmt":"2025-11-16T23:05:24","guid":{"rendered":"https:\/\/www.borncity.com\/blog\/?p=318248"},"modified":"2025-11-16T23:00:41","modified_gmt":"2025-11-16T22:00:41","slug":"microsoft-word-um-mehrseiten-scan-funktion-nachruesten","status":"publish","type":"post","link":"https:\/\/borncity.com\/blog\/2025\/11\/17\/microsoft-word-um-mehrseiten-scan-funktion-nachruesten\/","title":{"rendered":"Microsoft Word um Mehrseiten-Scan-Funktion nachr\u00fcsten"},"content":{"rendered":"

Microsoft Word besitzt keine eingebaute Scan-Funktion mehr. Diese l\u00e4sst sich aber \u00fcber ein Makro nachr\u00fcsten. Ein Blog-Leser hat mir nun eine Erweiterung zukommen lassen, \u00fcber die man Multiseiten-Scans in Word durchf\u00fchren k\u00f6nnen soll. Ich trage das Thema daher hier im Blog nach.<\/p>\n

<\/p>\n

R\u00fcckblick auf Scannen in Word<\/h2>\n

\"\"Microsoft verzichtet ja seit Word 2007 darauf, eine Scanfunktion in der Software bereitzustellen. Hier im Blog habe ich daher immer wieder Bastell\u00f6sungen vorgestellt, um doch aus Word scannen zu k\u00f6nnen. Letztmalig habe ich im\u00a0Jahr 2016 hier im Blog in der Artikelreihe Scanfunktion in Word 2013\/2016 nachr\u00fcsten<\/a> \u2013 Teil 1 beschrieben, wie sich in Microsoft Word 2013 und 2016 eine Scan-Funktion nachr\u00fcsten l\u00e4sst.<\/p>\n

Dieser Ansatz sollte auch mit Word 365 und Word 2021 bzw. Word 2024 funktionieren (mangels Word kann ich aber nichts testen). Die Hinweise zur Einbindung des VBA-Scan-Makros sind daher auch f\u00fcr den nachfolgenden Ansatz zu verwenden.<\/p>\n

Mehrseiten-Scan in Word nachr\u00fcsten<\/h2>\n

Es wurde immer wieder von Lesern gefragt, ob ein Multiseiten-Scan auch m\u00f6glich sei (mangels Hardware und wegen fehlendem Word konnte ich dazu nichts schreiben). Ein Blog-Leser hat sich dieser Aufgabe angenommen und in diesem Kommentar<\/a> angemerkt, dass er das Problem gel\u00f6st habe.<\/p>\n

Es ist eine sehr \"spezielle\" L\u00f6sung, da er die Konsolen-Schnittstelle seiner NAPS2-Scan<\/a>-Software per VBA-Makro f\u00fcr Mehrseiten-Scans in Word anspricht. Das VBA-Makro ruft \u00fcber WshShell.Run<\/em> die NAPS2.Console.exe<\/em> mit den\u00a0 Parametern zum Scan-Profil,\u00a0 zum Speicherort und zum Speicherformat auf. Anschlie\u00dfend f\u00fcgt das Makro die gespeicherten Bilder in Word ein und l\u00f6scht anschlie\u00dfend die Bilddateien.<\/p>\n

Ich hatte dann angeboten, die VBA-Quellcode f\u00fcr Interessierte hier im Blog bereitzustellen und der Leser hat mir diesen zur Ver\u00f6ffentlichung \u00fcberlassen (vielen Dank daf\u00fcr). Hier ist der VBA-Quellcode, den mir der Leser zukommen lie\u00df.<\/p>\n

Sub NAPS2_Feeder()\r\n'\r\n' NAPS2_Feeder ScanMakro\r\n' Made from AI-Template in November 2025 by Ingbert\r\n'\r\n    ' DEFINITION OF VARIABLES\r\n    Dim WshShell As Object\r\n    Dim NAPS2Path As String\r\n    Dim Device As String\r\n    Dim Driver As String\r\n    Dim TempFilePath As String\r\n    Dim TempFile As String\r\n    Dim strFile As String\r\n    Dim objDoc As Document\r\n    Dim Command As String\r\n    Dim ExitCode As Long\r\n    \r\n    ' --- CONFIGURATION START (NEEDS TO BE ADAPTED TO LOCAL REQUIREMENTS ! ) ---\r\n\r\n    NAPS2Path = \"C:\\Program Files\\NAPS2\\NAPS2.Console.exe\"    ' 1. Path to NAPS2.Console.exe\r\n    Device = \"brother\"                                        ' 2. Name of device - caseinsensitive partial match is OK\r\n    Driver = \"wia\"                                            ' 3. Device driver (wia or twain)\r\n    TempFilePath = (\"C:\\TempScans\")                           ' 4. Path to folder for temporary image file\r\n    TempFile = \"\\NAPS2_Scan.jpg\"                              ' 5. Name of temporary image file (.jpg or .png)\r\n\r\n    ' --- CONFIGURATION END ---\r\n    \r\n    On Error GoTo Errormanagement\r\n    \r\n    ' 1. CHECK IF NAPS2 CONSOLE IS PRESENT\r\n\r\n    If Dir(NAPS2Path) = \"\" Then\r\n        MsgBox \"ERROR: NAPS2 Console not found at \" & NAPS2Path, vbCritical ' \"FEHLER: NAPS2 Konsolenversion nicht gefunden unter: \"\r\n        Exit Sub\r\n    End If\r\n    \r\n    ' 2. CLEAN FOLDER FOR TEMPORARY IMAGE FILES\r\n\r\n    On Error Resume Next\r\n    Kill (TempFilePath & \"\\\" & \"*.jpg\")                         ' Change \"jpg\" if a different image format has been selected at 5. above\r\n    On Error GoTo 0\r\n\r\n    ' 3. COMPILE COMMAND FOR SCANNING BY NAPS.console.exe            \r\n                                                                ' Arguments as listed on https:\/\/www.naps2.com\/doc\/command-line\r\n    Command = \"\"\"\" & NAPS2Path & \"\"\" --noprofile --driver \"\"\" & Driver & \"\"\" --device \"\"\" & Device & \"\"\" --source feeder -o \"\"\" & TempFilePath & TempFile & \"\"\" --deskew --dpi 300 --pagesize a4\"\r\n    \r\n    ' 4. COMPILE WScript.Shell OBJECT\r\n\r\n    Set WshShell = CreateObject(\"WScript.Shell\")\r\n    Application.StatusBar = \"Starting NAPS2 scan, waiting...\"   ' \"Starte NAPS2 Scan und warte auf Abschluss...\"\r\n\r\n    ' 5. RUN COMMAND\r\n\r\n    ExitCode = WshShell.Run(Command, 0, True)                   ' 0 = vbHide (hiding window), True = Waite until process is complete (IMPORTANT!)\r\n    Set WshShell = Nothing\r\n    Application.StatusBar = \"Scan completed. Pasting file...\"   ' \"Scan abgeschlossen. F\u00fcge Datei in Word ein...\"\r\n    \r\n    Set objDoc = ActiveDocument\r\n    \r\n    ' 6. SEARCH FOR FIRST IMAGE FILE (*.jpg)\r\n\r\n    strFile = Dir(TempFilePath & \"\\\" & \"*.jpg\", vbNormal)\r\n    \r\n    ' 7. PASTE ALL FOUND FILES ONE AFTER THE OTHER\r\n\r\n    Do While strFile <> \"\"\r\n        With objDoc.Content\r\n                                                                ' Paste image at current cursor postion (InlineShape = in text line)\r\n            Selection.InlineShapes.AddPicture FileName:=TempFilePath & \"\\\" & strFile, LinkToFile:=False, SaveWithDocument:=True\r\n        End With\r\n        strFile = Dir()                                         ' Search for next file\r\n    Loop\r\n    \r\n    Set objDoc = Nothing\r\n            \r\n    ' 8. DELETE TEMPORARY FILE(S)\r\n\r\n    On Error Resume Next\r\n    Kill (TempFilePath & \"\\\" & \"*.jpg\")                         ' Change \"jpg\" if a different image format has been selected\r\n    On Error GoTo 0\r\n    Application.StatusBar = \"Done: Scan successfully pasted.\"   ' \"Fertig: Scan erfolgreich eingef\u00fcgt.\"\r\n  \r\n    ' 9. EXIT WITHOUT ERROR\r\n\r\n    Exit Sub\r\n\r\n    ' 10. ERROR MANAGEMENT\r\n    \r\nErrormanagement:\r\n\r\n    Set WshShell = Nothing\r\n    Application.StatusBar = False\r\n    MsgBox \"Unexpected VBA error: \" & Err.Description, vbCritical    ' \"Ein unerwarteter VBA-Fehler ist aufgetreten: \"\r\n    \r\nEnd Sub<\/pre>\n
Es ist zu beachten, dass die Verwendung des VBA-Codes auf eigenes Risiko erfolgt. Es wird keine Haftung und kein Support gew\u00e4hrleistet.<\/p>\n
\u00c4hnliche Artikel:
\n<\/strong>Scanfunktion in Word 2013\/2016 nachr\u00fcsten<\/a>\u00a0\u2013 Teil 1
\nScanfunktion in Word 2013\/2016 nachr\u00fcsten<\/a>\u00a0\u2013 Teil 2<\/p>\n","protected":false},"excerpt":{"rendered":"
Microsoft Word besitzt keine eingebaute Scan-Funktion mehr. Diese l\u00e4sst sich aber \u00fcber ein Makro nachr\u00fcsten. Ein Blog-Leser hat mir nun eine Erweiterung zukommen lassen, \u00fcber die man Multiseiten-Scans in Word durchf\u00fchren k\u00f6nnen soll. Ich trage das Thema daher hier im … Weiterlesen →<\/span><\/a><\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[153],"tags":[4322,8637],"class_list":["post-318248","post","type-post","status-publish","format-standard","hentry","category-microsoft-office","tag-office","tag-scan"],"_links":{"self":[{"href":"https:\/\/borncity.com\/blog\/wp-json\/wp\/v2\/posts\/318248","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/borncity.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/borncity.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/borncity.com\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/borncity.com\/blog\/wp-json\/wp\/v2\/comments?post=318248"}],"version-history":[{"count":0,"href":"https:\/\/borncity.com\/blog\/wp-json\/wp\/v2\/posts\/318248\/revisions"}],"wp:attachment":[{"href":"https:\/\/borncity.com\/blog\/wp-json\/wp\/v2\/media?parent=318248"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/borncity.com\/blog\/wp-json\/wp\/v2\/categories?post=318248"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/borncity.com\/blog\/wp-json\/wp\/v2\/tags?post=318248"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}