Макрос для сканирования бумаги сканирует только одну страницу
333
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
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 6 лет назад
1
0 ответов на вопрос
Похожие вопросы
-
3
Могу ли я запустить Microsoft Office 2007 под Ubuntu?
-
6
Насколько хороша защита паролем Word?
-
4
Вставить Flash видео в документ MS Word (2003 или 2007)
-
-
1
Как сделать так, чтобы меню по умолчанию открывалось «полностью» в MS Word 2003?
-
2
Есть ли способ заставить Excel 2007 автоматически восстанавливать фоновые файлы, как в MS Word?
-
1
Office 2007 - ссылки на источники в Word
-
6
Есть ли сочетание клавиш для выделения выделенного текста в MS Word 2007?
-
2
Word 2007 не открывает старые файлы
-
7
Как вы поддерживаете Microsoft Excel на полной скорости, даже если у него нет фокуса окна?
-
3
Минимизируйте размер файла документов Microsoft Word