Hast Du den Ordner "STARTUP" selber angelegt? Wenn nicht, müsstest Du eine 64 Bit-Version von Office 2016 auf Deinem Rechner haben!
Habe außerdem in der Installationsanweisung eine Unstimmigkeit entdeckt: Es muss nicht die Zip-Datei in den STARTUP-Ordner, sondern die entpackte Datei "Word-scanner2.dotm"! Hast Du das gemacht?
Zu beachten:
Wie Du schon gesagt hast, müssen die Einstellungen im Trust Center überprüft und evl. eingestellt werden: "Word > Datei > Optionen > Trust Center > Einstellungen für das Trust Center... > Makroeinstellungen"
Wichtig ist auch das Hinzufügen über "Add-Ins": "Word > Datei > Optionen > Add-Ins > Verwalten: Vorlagen --> Los > Hinzufügen"
Haken setzen nicht vergessen!
PS: Habe im Beitrag #3 die Installation für Word 2016 nochmal genauer beschrieben!
Ich habe den STARTUP Ordner nicht selbst angelegt, der Pfad war so vorhanden, nur eben bei Programme statt bei Programme 86x. Und ich habe natürlich die entpackte Datei verwendet. Beim Hinzufügen der Vorlage war das Häkchen schon gesetzt. Keine Ahnung, woran es noch liegen kann. Was bedeutet das mit der 64 Bit-Version? Ich muss zugeben, dass ich mich Null auskenne damit... alles learning by doing.
Fehlersuche: Schnelles Scannen Word 2016 64 Bit-Version
Hallo Caro, ich nehme an, das Du den Haken in der folgenden Makroeinstellung gesetzt und die Sicherheitswarnung mit "Inhalt aktivieren" bestätigt hast!
Makroeinstellungen für Entwickler == Haken setzen bei "Zugriff auf das VBA-Projektobjektmodell vertrauen"!
So sollte es funktionieren: Da bleibt noch eine Möglichkeit über.... Das Script ist für eine 32Bit-Version von Office und intern mit festgelegten Pfaden geschrieben worden!
Bitte lege einen neuen, wie auch oben beschriebenen Pfad an und kopiere die entpackte Datei "Word-scanner2.dotm" in den STARTUP-Ordner.
Unter "Word > Datei > Optionen > Add-Ins > Verwalten: Vorlagen --> Los > Hinzufügen" die "Word-scanner2.dotm" neu registrieren!
Dann sollte es funktionieren!
Ansonsten ist das Script für eine 64-Bit Version von Office nicht lauffähig - Ich hoffe nicht!
Alles wie beschrieben erledigt, leider erfolglos. Es scheint tatsächlich in der 64-Bit Version nicht zu funktionieren. Aber gut, es gibt ja einen anderen Weg. Vielleicht kommt Microsoft irgendwann wieder auf die Idee, dass so eine Funktion sehr nützlich sein kann, und erfindet das Rad neu... ;-)
Vielen lieben Dank dennoch für die große Mühe und die schnellen und informativen Antworten! Ich habe definitiv einiges dazugelernt :-) Grüße, Caro
Ich habe folgendes Problem... Schaltfläche "Bild von Scanner holen" ist da und funktioniert, es öffnet sich ein Fenster mit den Einstellungen für meinen Scanner (Brother DCP-145C), Vorschau klappt auch. Beim Klick auf Scannen läuft der Scannvorgang an und endet (schätzungsweise) bei 99% mit der Fehlermeldung "Ein Fehler ist aufgetreten. Möglicherweise ist kein WIA- fähiges Gerät angeschlossen und/oder eingeschaltet". Das normale scannen und importieren über die Scanneroberfläche funktioniert einwandfrei. Ich habe auch schon den Druckertreiber deinstalliert und neu installiert, brachte aber keinen Erfolg. Hast Du noch eine Idee, was ich versuchen könnte (außer Downgrade auf Office 2007, da hat es funktioniert). Mfg, Alex
Fehlersuche: "Kein WIA- fähiges Gerät" - Schnelles Scannen Word 2016
Hallo Alex, Lösung gefunden!
Habe recherchiert, viel ausprobiert und alles auf der Seite von "Borns IT- und Windows-Blog" gefunden und zusammengestellt! Hier gibt es eine bebilderte Anleitung zum Einbau!
Die "Twain-/WIA-Anbindungen" sind nicht mehr zeitgemäß und die passenden Drucker-Treiber werden auch nicht immer mitgeliefert! Wenn die Meldung kommt "Ein Fehler ist aufgetreten. Möglicherweise ist kein WIA- fähiges Gerät angeschlossen und/oder eingeschaltet", liegt vom Druckerhersteller keinen geeigneter "WIA-Treiber" mehr vor! Eine gute Lösung besteht darin, ein Makro mit dem folgenden Skript anzulegen! Ist allerdings etwas auswendig beim Einbau, aber es funktioniert! Läuft in "Word 13 +16 / 365" und in der "32 + 64-Bit Windows-Version"!
Mehr unter: Habe alles nochmal genauer in Beitrag #2 beschrieben, unter Installation unter MS Word 2007 - 2016 / 365!
• Wenn Fehler auftreten! • Fehlermeldung: "Kein WIA- fähiges Gerät angeschlossen..."! • Macro für Word 2013 + 2013 / 365! • Hinweise und Einstellungen im "Trust Center"!
• "Entwicklertools" in Word aktivieren und unter "Makros", ein Makro erstellen! • Unter "Virtual Basic for Applikations" (VBA), neuen Makro-Code eingeben! • Wichtig! - Reiter "Extra > Verweise..." öffnen und Verweis "Microsoft Windows Image Acquisition Library v2.0" suchen und anhaken! • Scanner-Button in der "Hauptregisterkarte" erstellen! • Genauere Beschreibung in Beitrag #2 unter Installation unter MS Word 2007 - 2016 / 365!
' Scan for Word 2013/2016 ' Author: Günter Born www.borncity.de www.borncity.com/blog ' Implements a Scan function in Word 2013/2016
Sub Scan() ' ' Scan Macro, to be invoked in Word ' On Error Resume Next Dim objCommonDialog As WIA.CommonDialog Dim objImage As WIA.ImageFile Dim strDateiname ' instantiate Scan WIA objects Set objCommonDialog = New WIA.CommonDialog Set objImage = objCommonDialog.ShowAcquireImage
' set temporary file strDateiname = Environ("temp") & "\Scan.jpg"
If Not objImage Is Nothing Then Kill strDateiname 'delete old file ' save into temp file objImage.SaveFile strDateiname ' insert into document Selection.InlineShapes.AddPicture strDateiname Set objImage = Nothing End If Set objCommonDialog = Nothing
Schnelles Scannen in Word, Excel, PowerPoint, Publisher und auch Outlook 365 (2013, 2016) - Windows 10 und 11 - Teil 4 Aktualisiert 27.08.2024
Hallo Alex, habe noch eine weitere Lösung gefunden, um einen Scanner-Button in alle MS-Office Programme zu installieren und auch für die 32+64 Bit-Version!
Wie schon erwähnt sind die "Twain-/WIA-Anbindungen" nicht mehr zeitgemäß und die passenden Drucker-Treiber werden auch nicht immer mitgeliefert! Hier kann es oft zu Fehlermeldungen und Fehlfunktionen kommen! Fast jeder Drucker ist bereits mit "WLAN" ausgestattet und ist somit überall erreichbar! Trotz alledem haben sich immer wieder Leute damit beschäftigt, eine Lösung für den doch durchaus praktischen "Scanner-Button" zu finden! Die Lösungen in Beitrag #2 beruhen auf ältere Windows- und Office-Versionen! Habe recherchiert, ausprobiert, viel Neues und eine elegante Lösung von Andreas Killer (Beitrag vom 30. Mai 2016) im englischen "MS-Office Forum" gefunden!
Installation für MS-Office 365 (2013, 2016, 2019) und Windows 10 + 11
Die folgende Lösung beruht auf ein erweitertes Makro und läuft bestens in "Windows 10+11" und "365", in der "32+64 Bit Version"! Es sollte auch in "MS-Office 2013, 2016" und "Windows 7" funktionieren! Das Geniale ist, das Makro funktioniert in Word, Excel, PowerPoint, Publisher und Outlook und die Installation weicht nur geringfügig ab!
' Scanner-Button für MS-Office 2016 / 2019 / 365 - 32/64 Bit // auch Windows 7 + MS-Office 2013 ' Author: Günter Born www.borncity.de www.borncity.com/blog ' Ergänzt: Andreas Killer - Independent Advisor https://answers.microsoft.com/en-us ' Implementiert für MS Word, MS Excel, MS PowerPoint, MS Publisher, MS Outlook
Sub Scan() Const olEditorWord = 4 Dim objCommonDialog As WIA.CommonDialog Dim objImage As WIA.ImageFile Dim strDateiname As String Dim ActiveObject As Object, ActiveTarget As Object ' instantiate Scan WIA objects Set objCommonDialog = New WIA.CommonDialog Set objImage = objCommonDialog.ShowAcquireImage strDateiname = Environ$("TEMP") & "\Scan.jpg" ' set temporary file If Not objImage Is Nothing Then If Dir(strDateiname) <> "" Then Kill strDateiname objImage.SaveFile strDateiname 'save into temp file DoEvents
'Insert the picture into the office application: Select Case Trim$(Replace$(Application.Name, "Microsoft", ""))
Case "Excel" Set ActiveObject = CallByName(Application, "ActiveSheet", VbGet) Set ActiveTarget = CallByName(Application, "ActiveCell", VbGet) If ActiveTarget Is Nothing Then 'Insert into a chart, etc. ActiveObject.Shapes.AddPicture _ strDateiname, False, True, 0, 0, -1, -1 Else 'Insert into a sheet at the active cell ActiveObject.Shapes.AddPicture _ strDateiname, False, True, ActiveTarget.Left, ActiveTarget.Top, -1, -1 End If
Case "Outlook" Set ActiveObject = CallByName(Application, "ActiveInspector", VbGet) If ActiveObject Is Nothing Then MsgBox "Create a new mail and try again" Exit Sub End If With ActiveObject If .IsWordMail And .EditorType = olEditorWord Then .WordEditor.Application.Selection.InlineShapes.AddPicture strDateiname End If End With
Case "PowerPoint" Set ActiveObject = CallByName(ActiveWindow, "View", VbGet) ActiveObject.Slide.Shapes.AddPicture strDateiname, False, True, 0, 0, -1, -1
Case "Publisher" Set ActiveObject = CallByName(Application, "ActiveDocument", VbGet) ActiveObject.ActiveView.ActivePage.Shapes.AddPicture strDateiname, False, True, 0, 0, -1, -1
Case "Word" Set ActiveObject = CallByName(Application, "Selection", VbGet) ActiveObject.InlineShapes.AddPicture strDateiname End Select End If End Sub
Die Installationsanleitung in MS-Office 365 (2013, 2016, 2019):
Der Scanner-Button steht nach der Installation in jedem neuen Word-Dokument zur Verfügung!
Word aufrufen, ein "Leeres Dokument" öffnen, Reiter "Entwicklertool" oder "Ansicht" anklicken (neben Hilfe)!
Ist der Reiter "Entwicklertool" nicht zu sehen, im "Menüband" kleinen Pfeil anklicken > "Weitere Befehle..." > "Menüband anpassen" > "Hauptregisterkarten" > im Kasten "Entwicklertool" Haken setzen!
Button "Makros" anklicken, "Makroname" Scan vergeben, "Makro in" auf "Normal.dotm (globale Vorlage)" oder "Alle aktiven Dokumentenvorlagen und Dokumenten" stellen!
"Erstellen" anklicken. Programm "Virtual Basic" öffnet sich!
Die Zeilen 1-62 aus dem Makro eintragen (Vorhandene Zeilen exportieren oder wenn nicht gebraucht, überschreiben!) und schließen. Makro sollte automatisch speichern!
Im Makrofenster "Bearbeiten" anklicken. Programm "Virtual Basic" öffnet sich wieder.
Wichtig! - Reiter "Extra > Verweise..." öffnen und Verweis "Microsoft Windows Image Acquisition Library v2.0" suchen und anhaken!
Speichern nicht vergessen! Unter "Datei", "Normal Speichern" anklicken, "Visual Basic" schließen!
Unter "Word" das "Menüband" öffnen, dann nach "Weitere Befehle..." und "Menüband anpassen"!
Im Feld "Hauptregisterkarten" auf das "Plus" von "Einfügen" klicken und "Illustration" markieren!
"Neue Gruppe" anklicken und unter "Illustration" einfügen!
"Neue Gruppe" umbenennen, z.B. Scannen und ein Symbol vergeben!
Im Auswahlfeld "Befehle auswählen", "Makros" suchen und anklicken!
Das Makro Scan unter "Scannen" einfügen! Dazu das Makro und "Scannen" markieren und "Hinzufügen" anklicken!
Das neue Makro umbenennen in z.B. Bild vom Scanner einfügen!
Der Scanner-Button steht nach der Installation in jeder neuen Arbeitsmappe zur Verfügung!
Excel aufrufen, ein "Leere Arbeitsmappe" öffnen, Reiter "Entwicklertool" oder "Ansicht" anklicken (neben Hilfe)!
Ist der Reiter "Entwicklertool" nicht zu sehen, im "Menüband" kleinen Pfeil anklicken > "Weitere Befehle..." > "Menüband anpassen" > "Hauptregisterkarten" > im Kasten "Entwicklertool" Haken setzen!
"Erstellen" anklicken. Programm "Virtual Basic" öffnet sich!
Die Zeilen 1-62 aus dem Makro eintragen (Vorhandene Zeilen exportieren oder wenn nicht gebraucht, überschreiben!)
Wichtig! - Reiter "Extra > Verweise..." öffnen und Verweis "Microsoft Windows Image Acquisition Library v2.0" suchen und anhaken!
Die Zeilen 1-62 aus dem Makro eintragen (Vorhandene Zeilen exportieren oder wenn nicht gebraucht, überschreiben!) und schließen. Makro sollte automatisch speichern!
Unter "Excel" das "Menüband" öffnen, dann nach "Weitere Befehle..." und "Menüband anpassen"!
Im Feld "Hauptregisterkarten" auf das "Plus" von "Einfügen" klicken und "Illustration" markieren!
"Neue Gruppe" anklicken und unter "Illustration" einfügen!
"Neue Gruppe" umbenennen, z.B. Scanner und ein Symbol vergeben!
Im Auswahlfeld "Befehle auswählen", "Makros" suchen und anklicken!
Das Makro Scan unter "Scanner" einfügen! Dazu das Makro und "Scanner" markieren und "Hinzufügen" anklicken!
Das neue Makro umbenennen in z.B. Bild vom Scanner einfügen
Der Scanner-Button steht nach der Installation in jeder neuen PowerPoint-Vorlage zur Verfügung!
PowerPoint aufrufen, ein "Leere Präsentation" öffnen, Reiter "Entwicklertool" oder "Ansicht" anklicken (neben Hilfe)!
Ist der Reiter "Entwicklertool" nicht zu sehen, im "Menüband" kleinen Pfeil anklicken > "Weitere Befehle..." > "Menüband anpassen" > "Hauptregisterkarten" > im Kasten "Entwicklertool" Haken setzen!
Ist der Reiter "Entwicklertool" nicht zu sehen, im "Menüband" kleinen Pfeil anklicken > "Weitere Befehle..." > "Menüband anpassen" > "Hauptregisterkarten" > im Kasten "Entwicklertool" Haken setzen!
Der Scanner-Button steht beim Schreiben einer neuen E-Mail immer zu Verfügung!
Outlook aufrufen, Reiter "Entwicklertool" oder "Ansicht" anklicken (neben Hilfe)!
Ist der Reiter "Entwicklertool" nicht zu sehen, im "Menüband" kleinen Pfeil anklicken > "Weitere Befehle..." > "Menüband anpassen" > "Hauptregisterkarten" > im Kasten "Entwicklertool" Haken setzen!
"Erstellen" anklicken. Programm "Virtual Basic" öffnet sich!
Die Zeilen 1-62 aus dem Makro eintragen [/i]eintragen (Vorhandene Zeilen exportieren oder wenn nicht gebraucht, überschreiben!)
Wichtig! - Reiter "Extra > Verweise..." öffnen und Verweis "Microsoft Windows Image Acquisition Library v2.0" suchen und anhaken!
Speichern nicht vergessen! Unter "Datei", "VbaProjekt.OTM speichern" anklicken.
"Visual Basic" und "Outlook" schließen!
Outlook erneut öffnen, unter "Datei" > "Optionen" > "AddIns" > "Verwalten: COM-Add-Ins" > "Los...", "Microsoft VBA for Outlook Addin" anhaken und mit "OK" speichern!
Unter "Start" > "Neue E-Mail" anklicken! Das "Menüband" öffnen, dann nach "Weitere Befehle..." und "Menüband anpassen"!
Im Feld "Hauptregisterkarten" auf das "Plus" von "Neue E-Mail Nachrichten" klicken und "Einfügen" markieren!
"Neue Gruppe" erstellen, wird unter "Einfügen" eingefügt!
"Neue Gruppe" umbenennen, z.B. Scanner und ein Symbol vergeben!
Im Auswahlfeld "Befehle auswählen", "Makros" suchen und anklicken, Sicherheitswarnung bestätigen!
Das Makro Scan unter "Scanner" einfügen! Dazu das Makro und "Scanner" markieren und "Hinzufügen" anklicken!
Das neue Makro umbenennen in z.B. Bild vom Scanner einfügen
Hinweise und Einstellungen im Trust Center: Sollte trotz alledem der Scanner-Button nicht funktionieren oder zu sehen sein, sind folgende Einstellungen zu überprüfen!
Einstellungen im Trust Center überprüfen und evl. einstellen:
Für "MS Word, MS Excel, MS PowerPoint und MS Publisher": Unter "Starteseite > Optionen > Trust Center > Einstellungen für das Trust Center... > Makroeinstellungen":
"Makroeinstellungen": Haken sollte bei "Alle Makros mit Benachrichtigungen deaktivieren" gesetzt sein!
"Makroeinstellungen für Entwickler" (nicht für Publisher): Haken sollte bei "Zugriff auf das VBA-Projektobjektmodell vertrauen" gesetzt sein!
Nur für "MS Outlook": Unter "Datei > Optionen > Trust Center > Einstellungen für das Trust Center... > Makroeinstellungen":
"Makroeinstellungen": Haken sollte bei "Benachrichtigungen für alle Makros" gesetzt sein!
Unter "Vertrauenswürdige Herausgeber" sollte der Firmenname des Drucker zu finden sein!
Hallo Wolfgang, Erstmal vielen Dank, ich hab es mittlerweile mit Hilfe der Anleitung von der Seite "Borns IT- und Windows-Blog" hinbekommen, das Scannen aus Word 2016 heraus funktioniert.