Makro zum Scannen von Papier scannt nur eine Seite

409
user952807

Ich schreibe ein Makro für Word 2013, um alle im Scanner-Einzug befindlichen Dokumente zu scannen. Das Problem ist, dass nur eine Seite gescannt wird. Ich muss Makro für jede Seite aufrufen.

Was ist falsch in meinem Code?

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 As String      ' instantiate Scan WIA objects      Set objCommonDialog = New WIA.CommonDialog      Set objImage = objCommonDialog.ShowAcquireImage      ' set temporary file      strDateiname = Environ("temp") & "\Scan.jpg“ ' set temporary file"      If Not objImage Is Nothing Then        Kill strDateiname        ' save into temp file        objImage.SaveFile strDateiname        ' insert into document        Selection.InlineShapes.AddPicture strDateiname        Set objImage = Nothing      End If      Set objCommonDialog = Nothing  '   MsgBox strDateiname  ' test output End Sub
0
Was meinen Sie mit "es scannt nur eine Seite"? Meinen Sie damit, dass, wenn Sie einen Stapel von Seiten laden und Ihr Makro zweimal aufrufen, der erste Aufruf eine Seite durchsucht und der zweite Aufruf nichts tut? Rufen Sie Ihr Makro mehrmals auf? Haben Sie in Betracht gezogen, Ihrem Makro eine Schleife hinzuzufügen? Bitte antworten Sie nicht in Kommentaren. Bearbeiten Sie Ihre Frage, um sie klarer und vollständiger zu machen. Scott vor 5 Jahren 1

0 Antworten auf die Frage

Verwandte Probleme