Hallo Herr Born,
vielen Dank für die Bereitstellung dieser Anleitung und des Codes. Und ebenfalls vielen Dank an Fabian Schlieper für den Tip wodurch vieles von Code überflüssig und einfacher geworden ist.
Der folgende Code funktioniert bei mir mit Word 2016, 64bit ohne Probleme:
‚ Author: Günter Born http://www.borncity.de blog.borncity.com
‚ Implements a Scan function in Word
Sub Scan()
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
strDateiname = Environ(„temp“) & „\Scan.jpg“ ‚ set temporary file ersetzen.
If Not objImage Is Nothing Then
Kill strDateiname
objImage.SaveFile strDateiname ‚ save into temp file
Selection.InlineShapes.AddPicture strDateiname ‚ insert into document
Set objImage = Nothing
End If
Set objCommonDialog = Nothing
‚ MsgBox strDateiname ‚ test output
End Sub
Leider scheint es zwischen Word und Outlook einen Unterschied zu geben. Ich habe in Outlook folgende Schritte unternommen:
Outlook starten -> Tastenkombination [ALT] + [F11] gedrückt
Menü -|Extras|-|Verweise| angeklickt und wie gehabt „Microsoft Windows Image Acquisition Libary v2.0“ ausgewählt.
Danach bin ich zu „Project1 (VbaProject.OTM)“ -> „Microsoft Outlokk Objeckte“ -> „ThisOutlookSession“ gewechselt und habe den Code eingegeben.
Die Schaltfläche habe ich wie von Ihnen beschrieben ebenfalls in Outlook angelegt. Beim klicken auf diese öffnet sich auch das Scanfenster wo ich den entsprechenden Scanner auswähle und dann auf scannen klicke. Er scannt das Dokument aber es wird nicht in die Mail eingefügt.
Achso, unter [Datei] -> [Optionen] -> [Trust Center] > [Einstellungen für das Trust Center…] -> [Makroeinstellungen] habe ich „Alle Makros aktivieren…“ ausgewählt.
Hätte hierfür jemand eventuell eine Lösung parat?
Vielen Dank
Matthias