{"id":13609,"date":"2013-02-04T22:51:26","date_gmt":"2013-02-04T20:51:26","guid":{"rendered":"http:\/\/www.borncity.com\/blog\/?p=13609"},"modified":"2024-02-04T21:25:06","modified_gmt":"2024-02-04T20:25:06","slug":"scannen-in-word-2013-teil-2","status":"publish","type":"post","link":"https:\/\/borncity.com\/blog\/2013\/02\/04\/scannen-in-word-2013-teil-2\/","title":{"rendered":"Scannen in Word 2013 – Teil 2"},"content":{"rendered":"

\"\"[English article<\/a>]In Teil 1<\/a> wurde ja festgestellt, dass das neue Word 2013 keine Scan-Funktion hat. Also habe ich nach einem Weg gesonnen, diese Funktion nachzur\u00fcsten. In Teil 1 habe ich die Funktionalit\u00e4t der Scan-Funktion vorgestellt und die Funktionen zum Aufrufen der VBA-Entwicklungsumgebung beleuchtet Nun liefere ich den VBA-Code nach und zeige, wie das Ganze als Schaltfl\u00e4che im Word implementiert wird.<\/p>\n

VBA-Code zum Zugriff auf die WIA-Schnittstelle<\/span><\/p>\n

\"\"Nachdem ich die Typ-Bibliothek f\u00fcr die WIA-Schnittstelle gefunden hatte, brachte eine kurze Recherche VBA-Code-Fragemente zum Zugriff auf die WIA-Schnittstelle zum Vorschein [1,2], zum L\u00f6schen einer Datei [3] und zum Ermitteln des Temp<\/em>-Ordners [4]. Der Temp<\/em>-Ordner dient zur Zwischenspeicherung der Scan-Datei. Hier nun der gesamte Quellcode des VBA-Makros.<\/p>\n

' Scan for Word 2013
\n' Author: G\u00fcnter Born www.borncity.de blog.borncity.com
\n' Implements a Scan function in Word 2013<\/p>\n

Private Declare Function GetTempPath Lib \"kernel32\" Alias \"GetTempPathA\" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long<\/p>\n

Private Function TempPath() As String
\nConst MaxPathLen = 256 ' Max path length
\nDim FolderName As String ' Folder name
\nDim ReturnVar As Long ' Return Value
\nFolderName = String(MaxPathLen, 0)
\nReturnVar = GetTempPath(MaxPathLen, FolderName)
\nIf ReturnVar <> 0 Then
\nTempPath = Left(FolderName, InStr(FolderName, Chr(0)) – 1)
\nElse
\nTempPath = vbNullString
\nEnd If
\nEnd Function<\/p>\n

Sub Scan()
\n'
\n' Scan Macro, to be invoked in Word
\n'
\nOn Error Resume Next
\nDim objCommonDialog As WIA.CommonDialog<\/em>
\nDim objImage As WIA.ImageFile
\nDim strDateiname
\n' instantiate Scan WIA objects
\nSet objCommonDialog = New WIA.CommonDialog
\nSet objImage = objCommonDialog.ShowAcquireImage
\nstrDateiname = TempPath & \"Scan.jpg\" \u00a0' set temporary file
\nIf Not objImage Is Nothing Then
\nKill strDateiname
\nobjImage.SaveFile strDateiname ' save into temp file
\nSelection.InlineShapes.AddPicture strDateiname ' insert in doc
\nSet objImage = Nothing
\nEnd If
\nSet objCommonDialog = Nothing
\n' MsgBox strDateiname\u00a0 ' test output
\nEnd Sub<\/p>\n

Der VBA-Code instantiiert ein WIA.CommonDialog<\/em>-Objekt und ruft dann die ShowAcquireImage<\/em>-Methode dieses Objekts auf. Diese gibt ein Bild als Objekt zur\u00fcck, welches dann in einer Datei im Temp<\/em>-Ordner des Benutzers abgelegt und dann im der AddPicture<\/em>-Methode in Word eingef\u00fcgt wird. Der obige Makro-Code l\u00e4sst sich im Visual Basic-Editor-Fenster eingeben und dann speichern.<\/p>\n

Die Schaltfl\u00e4che Scannen einf\u00fcgen<\/h3>\n

Als letzter Schritt im Dreiklang gilt es nun die Schaltfl\u00e4che Scannen <\/em>einzurichten. Idealerweise sollte diese in der eigenen Gruppe Scan<\/em> auf der Registerkarte Einf\u00fcgen<\/em> zu finden und mit dem obigen Makro verbunden sein.<\/p>\n

1. Klicken Sie mit der rechten Maustaste auf das Men\u00fcband und w\u00e4hlen den Kontextmen\u00fcbefehl Men\u00fcleiste anpassen<\/em>.<\/p>\n

2. W\u00e4hlen Sie im Dialogfeld Word-Optionen<\/em> in der linken Liste Befehle ausw\u00e4hlen <\/em>den Wert \"Makros\".<\/p>\n

3. Anschlie\u00dfend w\u00e4hlen Sie in der rechten Spalte \"Men\u00fcband anpassen\" den Eintrag Einf\u00fcgen<\/em> und expandieren diesen.<\/p>\n

4. Dann f\u00fcgen Sie \u00fcber die Schaltfl\u00e4che Neue Gruppe <\/em>eine Gruppe ein und benennen diese mit \"Scan\".<\/p>\n

\"\"<\/a><\/p>\n

5. F\u00fcgen Sie mittels der Schaltfl\u00e4che Hinzuf\u00fcgen<\/em> den Eintrag Normal.NewMacros.Scan<\/em> zur rechten Liste im Zweig Scan <\/em>hinzu.<\/p>\n

6. Benennen Sie den Eintrag mit Scannen <\/em>und weisen Sie im ge\u00f6ffneten Dialogfeld ein Schaltfl\u00e4chensymbol hinzu.<\/p>\n

Sobald Sie das Dialogfeld \u00fcber die OK-Schaltfl\u00e4che schlie\u00dfen, sollte das VBA-Makro durch Anwahl der Schaltfl\u00e4che Scannen <\/em>aufrufbar sein. Dann sollten die in Teil 1 gezeigten Scan-Dialogfelder erscheinen und Sie k\u00f6nnen den Scan vornehmen und in Word im Dokument einf\u00fcgen.<\/p>\n

Damit m\u00f6chte ich den Artikel schlie\u00dfen und hoffe mit den Ausf\u00fchrungen gen\u00fcgend Know-How geliefert zu haben, um aus Word 2013 zu scannen. Hier findet<\/a> sich noch eine Download-Datei Scan1.zip<\/em>, in dem sowohl eine Word *.docm-Datei sowie der Makro-Code als .bas-Datei mit der fertigen L\u00f6sung finden. Den Makro-Code k\u00f6nnen Sie bei Bedarf unter Word im Dialogfeld Organisieren <\/em>in die Normal.dot <\/em>kopieren.<\/p>\n

Artikel<\/strong>
\na: Scannen in Word 2013<\/a> \u2013 Teil 1
\nb: Scannen in Word 2013<\/a> \u2013 Teil 2
\nc: Scannen unter Word 2007\/2010<\/a><\/p>\n

Links:<\/strong>
\n1: Technet-Artikel<\/a>
\n2: Scan in Access<\/a>
\n3: Datei in VBA-L\u00f6schen<\/a>
\n4: Temp-Ordner ermitteln<\/p>\n","protected":false},"excerpt":{"rendered":"

[English article]In Teil 1 wurde ja festgestellt, dass das neue Word 2013 keine Scan-Funktion hat. Also habe ich nach einem Weg gesonnen, diese Funktion nachzur\u00fcsten. In Teil 1 habe ich die Funktionalit\u00e4t der Scan-Funktion vorgestellt und die Funktionen zum Aufrufen … 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":[1],"tags":[4358,395,2659,2658],"class_list":["post-13609","post","type-post","status-publish","format-standard","hentry","category-allgemein","tag-office-2013","tag-scannen","tag-vba","tag-word-2013"],"_links":{"self":[{"href":"https:\/\/borncity.com\/blog\/wp-json\/wp\/v2\/posts\/13609","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=13609"}],"version-history":[{"count":0,"href":"https:\/\/borncity.com\/blog\/wp-json\/wp\/v2\/posts\/13609\/revisions"}],"wp:attachment":[{"href":"https:\/\/borncity.com\/blog\/wp-json\/wp\/v2\/media?parent=13609"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/borncity.com\/blog\/wp-json\/wp\/v2\/categories?post=13609"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/borncity.com\/blog\/wp-json\/wp\/v2\/tags?post=13609"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}