{"id":13616,"date":"2013-02-04T23:46:29","date_gmt":"2013-02-04T21:46:29","guid":{"rendered":"http:\/\/www.borncity.com\/blog\/?p=13616"},"modified":"2024-02-04T21:25:06","modified_gmt":"2024-02-04T20:25:06","slug":"scanning-in-word-2013","status":"publish","type":"post","link":"https:\/\/borncity.com\/blog\/2013\/02\/04\/scanning-in-word-2013\/","title":{"rendered":"Scanning in Word 2013"},"content":{"rendered":"

\"\"[German edition<\/a>]Microsoft Office 2013 is shipped with new features, but some users are missing usability. For instance, a simple button to scan directly from Word 2013 is missing. Also old solutions won't work anymore. Therefore I've developed a solution, to add a scan option to Word 2013.<\/p>\n

<\/p>\n

How it it shall work \u2026<\/h3>\n

\"\"I'm using a German Word 2013, so all screenshots are made by this version. My idea was to establish a button Scan <\/em>within the Word 2013 ribbon bar (Tab Insert<\/em>).<\/p>\n

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

Using this button invokes the dialog box shown below. A user may select the WIA device to obtain a photo.<\/p>\n

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

After clicking OK, <\/em>the WIA dialog box shown below will be visible. Here we see the scanner dialog box.<\/p>\n

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

Using the Scan <\/em>button obtains the scan from the connected device and inserts it into the Word document. Therefore it's required, that Windows supports WIA drivers and devices.<\/p>\n

Implementing a macro for WIA control<\/h3>\n

How to implement this feature in Word 2013? The View<\/em> tab contains the Macro <\/em>button which may be used to invoke the Macros <\/em>dialog box. The button create <\/em>may be used to add a VBA macro.<\/p>\n

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

After searching a while, I was not able to find a Word object to scan \u2013 and I wasn't successful to invoke OneNote scan button from Word. Therefore I inspected the Type-Libraries (Menu Tools<\/em>, command References<\/em>).<\/p>\n

\"Scan-Objekt<\/a><\/p>\n

I found the \"Windwos Image Acquisition Library\" type library, that may be used to access the WIA interface.<\/p>\n

VBA code to access the WIA interface<\/h3>\n

After identifying the WIA type library I made a short research and found some VBA code fragments to access WIA [1,2], deleting a file [3] and to detect the Temp <\/em>folder [4] (used to store the temporary image file). Here is the VBA source code.<\/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)) \u2013 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\" ' 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

The VBA code initiates a WIA.CommonDialog <\/em>object and invokes the ShowAcquireImage <\/em>method. The method returns the scan as an object. This will be stored temporarily and will be inserted into Word document file.<\/p>\n

Add a scan button<\/h3>\n

At least we need to add a Scan<\/em> button at Insert <\/em>tab and associate it with the VBA macro.<\/p>\n

1. Right click the ribbon bar und select the command to change ribbon settings.<\/p>\n

2. Select the entry \"macro\" in the left list of dialog box Word options<\/em>.<\/p>\n

3. Add a new group entry \"Scan\" to Insert <\/em>tab and associate the macro from left list to this new group. Name it \"Scan\" and assign an appropriate image to this button.<\/p>\n

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

After closing the dialog box, the new Scan button shall be working. Here <\/a>is a download file Scan1.zip<\/em>, containing a Word *.docm file and a macro code file (.bas) with a a ready to use solution. You may use the sample and copy the macro code to your Normal.dot file.<\/p>\n

Links:<\/strong>
\n1: Technet-Article<\/a>
\n2: Scan in Access<\/a>
\n3: Delete files in VBA<\/a>
\n4: Detect temp folder<\/p>\n","protected":false},"excerpt":{"rendered":"

[German edition]Microsoft Office 2013 is shipped with new features, but some users are missing usability. For instance, a simple button to scan directly from Word 2013 is missing. Also old solutions won't work anymore. Therefore I've developed a solution, to … 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-13616","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\/13616","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=13616"}],"version-history":[{"count":0,"href":"https:\/\/borncity.com\/blog\/wp-json\/wp\/v2\/posts\/13616\/revisions"}],"wp:attachment":[{"href":"https:\/\/borncity.com\/blog\/wp-json\/wp\/v2\/media?parent=13616"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/borncity.com\/blog\/wp-json\/wp\/v2\/categories?post=13616"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/borncity.com\/blog\/wp-json\/wp\/v2\/tags?post=13616"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}