![\"\"](\"https:\/\/borncity.com\/blog\/wp-content\/uploads\/2012\/07\/Office1.jpg\")
In diesem Blog-Beitrag beschreibe ich, wie man mit einem VBA-Makro und ein wenig Know How sich eine Scanfunktion in Word 2016 nachr\u00fcsten kann. Die L\u00f6sung funktioniert auch in Word 2013.<\/p>\nIn diesem Blog-Beitrag beschreibe ich, wie man mit einem VBA-Makro und ein wenig Know How sich eine Scanfunktion in Word 2016 nachr\u00fcsten kann. Die L\u00f6sung funktioniert auch in Word 2013.<\/p>\n
<\/p>\n
Zuerst ein kleiner historischer Abriss. Microsoft verzichtet ja seit Word 2007 darauf, eine Scanfunktion bereitzustellen. Hier im Blog habe ich daher immer wieder Bastell\u00f6sungen (siehe Linkliste am Artikelende) vorgestellt, um doch aus Word scannen zu k\u00f6nnen. In Office 2013 lie\u00df sich wenigstens noch aus OneNote scannen. Wenn mir kein Fehler unterlaufen ist, hat Microsoft diese Funktion in OneNote 2016 auch geschlachtet.<\/p>\n
Aber es gab von mir eine Makro-L\u00f6sung f\u00fcr Word 2013 (siehe Links am Artikelende), die vielen Nutzern gute Dienste leistete. Aber das Scan-Makro entstand \"quick & dirty\" \u2013 denn mein letzten Buch zu VBA (Microsoft Word 97, Developer's Kit \u2013 Die technische Referenz), an dem ich beteiligt war, stammt aus 1998. Und mein Microsoft Press-Buch \"Microsoft Office 97 Visual Basic-Programmierung<\/a>\" rangiert sogar aus 1997. So drei Mann-Monate f\u00fcr so ein Buch ackern, um dann (bei ca. 1 Euro pro Exemplar) zwischen 4.000 und 6.000 Euro Tantiemen einzunehmen \u2013 und dann noch von Schlaumeiern unter den Lesern angemacht zu werden \"das und das fehlt\" \u2013 das muss ich mir nicht mehr geben. Meine letzten Werke zu Visual Basic 2005 und C# 2005 habe ich 2006-2008 zusammen mit meinem Sohn verfasst, damit dieser eine Referenz als Entwickler bekommt (hat auch geklappt und ich kann ihm da l\u00e4ngst nicht mehr das Wasser reichen). Von daher sind die Makros so was wie Finger\u00fcbungen f\u00fcr mich \u2013 aber meine Ambitionen gehen nicht dahin, eine Universall\u00f6sung mit diesem und jenem Balkon f\u00fcr die geneigte Anwenderschaft zu entwickeln \u2013 also zwecklos nach so was zu fragen. Anderseits versuche ich den Artikel etwas breiter anzulegen, um das (noch) vorhandene Know How unter die Leserschaft zu bringen.<\/p>\n Im Blog-Beitrag verwende ich einige K\u00fcrzel und Technologien, die ich kurz sortieren m\u00f6chte. Das K\u00fcrzel VBA steht f\u00fcr Visual Basic for Application, eine auf der Basic-Syntax aufsetzende Programmiersprache, mit der man in Office-Programmen wie Word sogenannte Makros (keine Programme) erstellen kann. Das VBA objektorientiert ist, kann man auf Funktionen (Objekte) anderer Anwendungen (wie z.B. Excel aus Word benutzen) und auf Bibliotheken (man spricht von Klassen) zugreifen.<\/p>\n Zur Ansteuerung eines Scanners benutze ich in diesem Blog-Beitrag eine Bibliothek, die von Windows 7, 8, 8.1 und 10 bereitgestellt wird \u2013 die Microsoft Windows Image Acquisition Library v2.0. Diese stellt eine sogenannte Klassenbibliothek bereit, die sich in VBA als Objekt instanziieren l\u00e4sst. Damit kann man bequem auf die bereitgestellten Methoden (Funktionen) und Eigenschaften (quasi Variablen) der Scan-Schnittstelle zugreifen.<\/p>\n Der Ansatz setzt aber voraus, dass die WIA-Schnittstelle in Windows durch geeignete Ger\u00e4te \u2013 sprich Scanner oder \u00e4hnliches \u2013 unterst\u00fctzt wird. Windows 7 und folgende Betriebssysteme stellen zwar die WIA-Schnittstelle bereit \u2013 aber der Scanner-Hersteller muss f\u00fcr die Windows-Version geeignete WIA-Treiber bereitstellen, damit die Einbindung klappt. Die von vielen Scanner-Herstellern bereitgestellte TWAIN-Schnittstelle wird von meiner L\u00f6sung nicht unterst\u00fctzt. Auf die Problematik bin ich in folgenden Blog-Beitr\u00e4gen eingegangen.<\/p>\n Scanner unter Windows 7<\/a> Falls jemand unbedingt mit einer TWAIN-Anbindung arbeiten will bzw. muss, verweise ich mal auf diesen Kommentar<\/a> zum meinem Word 2013-Scan-Beitrag. Dort gibt einen Code-Schnipsel sowie einen Link auf eine Twain-Bibliothek. Sollte auch in Word 2016 funktionieren.<\/p><\/blockquote>\n Generell l\u00e4sst sich feststellen, dass die Twain-\/WIA-Geschichte ein Auslaufmodell ist und nur noch im Privatanwender-Umfeld Verwendung findet. Modern Multifunktionsger\u00e4te und \u2013Scanner lassen sich per WiFi in ein lokales Netzwerk einbinden. Die Ger\u00e4t haben Intelligenz und k\u00f6nnen eine Scan als Datei auf eine konfigurierbare Netzwerkfreigabe speichern. Im Home-Office meiner Frau steht so ein Ger\u00e4t \u2013 habe ich aber nicht ins Netzwerk eingebunden.<\/p>\n Die hier vorgestellte VBA-L\u00f6sung erm\u00f6glicht aus Word 2013 oder Word 2016 per Schaltfl\u00e4che den Scanner \u00fcber die WIA-Schnittstelle anzusprechen. Dabei zeigt Windows (sofern mehrere WIA-Ger\u00e4te angeschlossen sind) als erstes das Auswahldialogfeld f\u00fcr die verf\u00fcgbaren WIA-Ger\u00e4te (hier iPad, Digicam und Scanner).<\/p>\n W\u00e4hlt der Benutzer ein Ger\u00e4t und dann die OK<\/em>-Schaltfl\u00e4che, soll das WIA-Dialogfeld zur Scanner-Steuerung erscheinen.<\/p>\n Im Dialogfeld lassen sich die Scan-Optionen w\u00e4hlen und ein Scan-Vorschau triggern. \u00dcber die Scannen<\/em>-Schaltfl\u00e4che wird das Bild erfasst und in einer tempor\u00e4ren Datei gespeichert. Im Anschluss ist der Scan an der aktuellen Stelle im Word-Dokument einzuf\u00fcgen.<\/p>\n Nicht unterst\u00fctzt wird der Mehrseiten-Scan, den manche Ger\u00e4te erzeugen. Die hat einen einfachen Grund: Ich habe erstens kein solches Ger\u00e4t greifbar \u2013 und zweitens kann die WIA-Schnittstelle meines Wissens auch keine Multiseiten-Scans handhaben. Wer in dieser Richtung Feldforschung betreiben m\u00f6chte oder muss, sollte in dieser Diskussion<\/a> einige Ans\u00e4tze finden.<\/p><\/blockquote>\n Nach diesen Pr\u00e4liminarien m\u00f6chte ich aber einsteigen. Als erstes gilt es, in Word 2016 (klappt auch in Word 2013) die VBA-Entwicklungsumgebung zur Eingabe des VBA-Makrocodes aufzurufen. Ich habe hier noch einen Screenshot aus Word 2013, der auch f\u00fcr Word 2016 passt.<\/p>\n 1. Gehen Sie zur Registerkarte Ansicht <\/em>und w\u00e4hlen Sie die Men\u00fcschaltfl\u00e4che Makros<\/em>. Dann ist der Befehl Makros anzeigen<\/em> anzuw\u00e4hlen.<\/p>\n 2. Bei Bedarf l\u00e4sst sich im Listenfeld Makros in <\/em>das Dokument (z.B. Normal.dotm (globale Vorlage) <\/em>einstellen, damit das neue Makro in allen Word-Dokumenten zur Verf\u00fcgung steht).<\/p>\n 3. Dann kann man einen Makronamen wie Scan <\/em>im Feld Makroname<\/em> eintippen und auf Erstellen <\/em>klicken.<\/p>\n Dann sollte sich das obige Fenster der VBA-Entwicklungsumgebung \u00f6ffnen, in dem bereits der Prozedurrumpf der Funktion Scan() <\/em>zu sehen ist. In der linken Spalte sieht man, dass das Makro dem Projekt Normal <\/em>(Normal.dotm) unter Module zugeordnet ist. Aber das erfolgt alles automatisch durch die VBA-Entwicklungsumgebung und braucht uns momentan nicht zu k\u00fcmmern.<\/p>\n Bevor es mit dem Makrocode los geht, ist noch ein wichtiger Zwischenschritt erforderlich. Es ist sicherzustellen, dass VBA die ben\u00f6tigte Klassenbibliothek zur Ansteuerung der WIA-Schnittstelle kennt.<\/p>\n 1. Gehen Sie zum Men\u00fcbefehl Extras <\/em>und w\u00e4hlen Sie im Men\u00fc den Befehl Verweise <\/em>an.<\/p>\n 2. Im Dialogfeld Verweise <\/em>suchen Sie den Eintrag Microsoft Windows Image Acquisition Library v2.0<\/em> und markieren das Kontrollk\u00e4stchen.<\/p>\n Wenn Sie das Dialogfeld \u00fcber die OK<\/em>-Schaltfl\u00e4che schlie\u00dfen, wird die Bibliothek wiaaut.dll<\/em> im Projekt mit referenziert. Dann k\u00f6nnen aus VBA auf die Klassen dieser Bibliothek zugegriffen und Objektinstanzen erzeugt werden.<\/p>\n Nach diesen Vorbereitungen sind wir an dem Punkt angekommen, wo der VBA-Code im Modul Scan() <\/em>eingef\u00fcgt werden kann. F\u00fcr die Scanfunktion habe ich folgenden VBA-Code vorgesehen.<\/p>\n Die Anweisungen erzeugen Instanzen des WIA-Dialogs, ermitteln den Pfad zum tempor\u00e4ren Ordner im Benutzerprofil, sto\u00dfen die Scanfunktion an und f\u00fcgen das zwischengespeicherte JPEG-Bild in Word ein.<\/p>\n Gegen\u00fcber dem Makrocode aus dem Word 2013-Beispiel habe ich eine Vereinfachung eingef\u00fchrt. Der Pfad zum Temp-Ordner des Benutzerprofils wird durch die<\/p>\n Environ(\"temp\")<\/em><\/p>\n Methode ermittelt. Diese steht in VBA zur Verf\u00fcgung und vermeidet die im Word 2013-Beispiel verwendete Windows API-Funktion. Der Aufruf der API-Funktion bringt Probleme beim Wechsel zwischen 32- und 64-Bit-Betriebssystemversionen. Der Parameter \"temp\" weist die Methode an, den Pfad zum tempor\u00e4ren Ordner des Benutzerprofils zur\u00fcckzuliefern. Im Code wird dann dieser Pfad um den Namen der zu erzeugenden Grafikdatei \"\\Scan.jpg\" erg\u00e4nzt.<\/p>\n Mit diesen Schritten ist der VBA-Makrocode fertig und man kann die Speichern<\/em>-Schaltfl\u00e4che der VBA-Entwicklungsumgebung anw\u00e4hlen (siehe obiges Bild). Anschlie\u00dfend l\u00e4sst sich deren Fenster schlie\u00dfen.<\/p>\n Bei Bedarf k\u00f6nnen Sie den Makrocode auch aus der Datei ScanV2.zip<\/a> beziehen. Einfach das ZIP-Archiv herunterladen, die darin enthaltene .BAS-Datei entpacken und in der VBA-Entwicklungsumgebung \u00fcber Datei\/Importieren in das vorher angew\u00e4hlte Modul importieren lassen.<\/p><\/blockquote>\n Nach diesen Vorbereitungen sollte das Makro bereits lauff\u00e4hig sein.<\/p>\n Zum Testen des Makrocodes sind ebenfalls nur wenige Schritte erforderlich, die ich hier kurz skizziere.<\/p>\n 1. Positionieren Sie die Einf\u00fcgemarke im Word-Dokument an der Stelle, an der das Bild vom Scanner einzuf\u00fcgen ist.<\/p>\n 2. Gehen Sie zur Registerkarte Ansicht<\/em>, w\u00e4hlen Sie die Men\u00fcschaltfl\u00e4che Makros <\/em>und klicken Sie auf den Befehl Makros anzeigen<\/em>.<\/p>\n 3. Stellen Sie sicher, dass der Scanner oder die gew\u00fcnschte WIA-Quelle eingeschaltet und mit dem PC verbunden ist.<\/p>\n 3. Klicken Sie auf das dort aufgef\u00fchrte Makro Scan <\/em>und w\u00e4hlen Sie die Schaltfl\u00e4che Ausf\u00fchren<\/em>.<\/p>\n Dann sollte der im nachfolgenden Abschnitt beschriebene Scan-Ablauf ausgef\u00fchrt werden.<\/p>\n 1. Sind im System mehrere WIA-Quellen verf\u00fcgbar, erscheint das obige Dialogfeld, in dem Sie die Quelle (hier den Brother DCP-115C) w\u00e4hlen und dann die OK<\/em>-Schaltfl\u00e4che best\u00e4tigen.<\/p>\n 2. Danach w\u00e4hlen Sie im obigen WIA-Scan-Dialogfeld die Scan-Optionen und best\u00e4tigen die Schaltfl\u00e4che Scannen.<\/em><\/p>\n Bei Bedarf k\u00f6nnen Sie die Schaltfl\u00e4che Vorschau<\/em> w\u00e4hlen, so dass ein Probescan im Vorschaufenster erscheint. Dann l\u00e4sst sich der Scan-Ausschnitt \u00fcber die vier Ziehmarken justieren. \u00dcber die Optionsfelder und den Hyperlink der linken Spalte stellen Sie die gew\u00fcnschten Scan-Optionen ein. Das erfolgt alles \u00fcber die WIA-Funktionen des Betriebssystems, die vom Makro genutzt werden.<\/p>\n W\u00e4hrend des Scanvorgangs wird der Verlauf in der obigen Fortschrittsanzeige dargestellt. Sobald die Vorlage erfasst wurde, speichert das Makro diese als JPEG-Grafik in einer tempor\u00e4ren Datei und f\u00fcgt das Ergebnis im Word-Dokument ein.<\/p>\n Sie k\u00f6nnen das (verkn\u00fcpfte) Bild markieren und in der Gr\u00f6\u00dfe anpassen oder auch wieder l\u00f6schen. Wenn alles bis hier hin geklappt hat, ist die Scanfunktion f\u00fcr Word 2013\/2016 nachger\u00fcstet. Bricht das Makro bei der Ausf\u00fchrung mit einem Fehler ab, haben Sie den Code falsch eingegeben oder den Verweis auf die WIA-Bibliothek nicht eingebunden. \u00dcberpr\u00fcfen Sie dann die obigen Schritte auf Fehler und Abweichungen. Beliebte Fehler sind Sonderzeichen, typografische Anf\u00fchrungszeichen oder fehlerhafte Hochkommas (Apostrophs).<\/p>\n In Teil 2 schaffen wir noch ein wenig Komfort, indem eine eigene Gruppe Scannen <\/em>mit einer Scan<\/em>-Schaltfl\u00e4che auf der Registerkarte Einf\u00fcgen <\/em>angelegt wird. Zudem l\u00e4sst sich bei Bedarf eine Scannen-Schaltfl\u00e4che in der Symbolleiste f\u00fcr den Schnellzugriff einrichten, damit der Zugriff auf den Scanner richtig komfortabel wird.<\/p>\n Artikelreihe: \u00c4hnliche Artikel:<\/strong> In diesem Blog-Beitrag beschreibe ich, wie man mit einem VBA-Makro und ein wenig Know How sich eine Scanfunktion in Word 2016 nachr\u00fcsten kann. Die L\u00f6sung funktioniert auch in Word 2013.<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[270,143],"tags":[395,4351,2659,2658,4702],"class_list":["post-175304","post","type-post","status-publish","format-standard","hentry","category-office","category-tipps","tag-scannen","tag-tipp","tag-vba","tag-word-2013","tag-word-2016"],"_links":{"self":[{"href":"https:\/\/borncity.com\/blog\/wp-json\/wp\/v2\/posts\/175304","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=175304"}],"version-history":[{"count":0,"href":"https:\/\/borncity.com\/blog\/wp-json\/wp\/v2\/posts\/175304\/revisions"}],"wp:attachment":[{"href":"https:\/\/borncity.com\/blog\/wp-json\/wp\/v2\/media?parent=175304"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/borncity.com\/blog\/wp-json\/wp\/v2\/categories?post=175304"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/borncity.com\/blog\/wp-json\/wp\/v2\/tags?post=175304"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}VBA, WIA, Twain, was sollte ich wissen<\/h2>\n
\nScanner funktioniert unter Windows 8\/8.1 nicht<\/a><\/p>\nWas die Scanfunktion leistet<\/h2>\n
![\"\"](\"https:\/\/i.imgur.com\/u09BlWG.jpg\")
<\/a><\/p>\n![\"\"](\"https:\/\/i.imgur.com\/jFnizmR.jpg\")
<\/a><\/p>\nAufruf der VBA-Entwicklungsumgebung<\/h2>\n
![\"VBA-Entwicklungsumgebung](\"https:\/\/i.imgur.com\/0vG0cNQ.jpg\")
<\/p>\n![\"VBA-Editor\"](\"https:\/\/i.imgur.com\/3WOwSCm.jpg\")
<\/p>\nEinbinden der WIA-Bibliothek<\/h2>\n
![\"VBA-Library](\"https:\/\/i.imgur.com\/u2bokt6.jpg\")
<\/p>\nDen Makro-Code erg\u00e4nzen<\/h2>\n
' Scan for Word 2013\/2016\r\n' Author: G\u00fcnter Born www.borncity.de www.borncity.com\/blog\r\n' Implements a Scan function in Word 2013\/2016\r\n\r\nSub Scan()\r\n'\r\n' Scan Macro, to be invoked in Word\r\n'\r\n On Error Resume Next\r\n Dim objCommonDialog As WIA.CommonDialog\r\n Dim objImage As WIA.ImageFile\r\n Dim strDateiname\r\n ' instantiate Scan WIA objects\r\n Set objCommonDialog = New WIA.CommonDialog\r\n Set objImage = objCommonDialog.ShowAcquireImage\r\n \r\n ' set temporary file\r\n strDateiname = Environ(\"temp\") & \"\\Scan.jpg\"\r\n \r\n If Not objImage Is Nothing Then\r\n Kill strDateiname 'delete old file\r\n ' save into temp file\r\n objImage.SaveFile strDateiname \r\n ' insert into document\r\n Selection.InlineShapes.AddPicture strDateiname \r\n Set objImage = Nothing\r\n End If\r\n Set objCommonDialog = Nothing\r\n \r\n ' MsgBox strDateiname ' test output\r\nEnd Sub\r\n<\/pre>\n
![\"VBA-Code](\"https:\/\/i.imgur.com\/yO8NyC3.jpg\")
<\/p>\nTesten des Makrocodes<\/h2>\n
![\"VBA-Makro](\"https:\/\/i.imgur.com\/dqJF7AE.jpg\")
<\/p>\n![\"VBA-Makro](\"https:\/\/i.imgur.com\/xwiNejC.jpg\")
<\/p>\n![\"\"](\"https:\/\/web.archive.org\/web\/20190423072522\/https:\/\/i24.imgup.net\/WIA018d18.jpg\")
<\/p>\n![\"\"](\"https:\/\/web.archive.org\/web\/20190423103814\/https:\/\/c64.imgup.net\/WIA02c578.jpg\")
<\/p>\n![\"\"](\"https:\/\/web.archive.org\/web\/20190423110419\/https:\/\/b22.imgup.net\/WIA03a80f.jpg\")
<\/p>\n![\"WIA-Scan](\"https:\/\/i.imgur.com\/3VEvAZE.jpg\")
<\/p>\n
\n<\/strong>Scanfunktion in Word 2013\/2016 nachr\u00fcsten<\/a> – Teil 1
\nScanfunktion in Word 2013\/2016 nachr\u00fcsten<\/a> – Teil 2<\/p>\n
\nScannen unter Word 2007\/2010<\/a>
\nScannen in Word 2013 \u2013 Teil 1<\/a>
\nScannen in Word 2013 \u2013 Teil 2<\/a>
\nScanner funktioniert unter Windows 8\/8.1 nicht<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"