Макрос для сканирования бумаги сканирует только одну страницу

295
user952807

Я пишу макрос для Word 2013 для сканирования всех бумаг, хранящихся в устройстве подачи сканера. Проблема в том, что он сканирует только одну страницу. Мне нужно вызывать макрос для каждой страницы.

Что не так в моем коде?

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
What do you mean by “it scans only one page”? Do you mean that, if you load a stack of pages and call your macro twice, the first invocation scans one page and the second invocation does nothing? Are you calling your macro multiple times? Have you considered adding a loop to your macro? Please do not respond in comments; [edit] your question to make it clearer and more complete. Scott 5 лет назад 1

0 ответов на вопрос

Похожие вопросы