How to scan Documents in MS Office 2013

Unfortunately everything that has been suggested in this original thread here since page one is suggesting that there is no way to scan a document directly from Microsoft Word 2013 which is what we are trying to do here. In that case I will just go directly into photoshop and scan the documents I need since I am not looking to download any software and since I was just looking for how to do this directly with word which I can see can't be done. But Photoshop works for me hopefully you all find a solution.

This should work in most versions 64 or 32 bit

Add reference to Microsoft Windows Image Acquisition x2.0

Sub Scan()

  Dim objCommonDialog As WIA.CommonDialog

  Dim objImage As WIA.ImageFile

  Dim strScanName As String

  ' instantiate Scan WIA objects

  Set objCommonDialog = New WIA.CommonDialog

  Set objImage = objCommonDialog.ShowAcquireImage

  strScanName = Environ$("TEMP") & "\Scan.jpg" ' set temporary file

  If Not objImage Is Nothing Then

    If Dir(strScanName) <> "" Then Kill strScanName

    objImage.SaveFile strScanName 'save into temp file

    DoEvents

     'Word

   Selection.InlineShapes.AddPicture strScanName ' insert in doc  objImage = Nothing

    End If

End Sub

Fax and Scan may be able to scan documents, but it will not do what this thread is about, which is to scan directly into Word.