A macro para digitalizar papel digitaliza apenas uma página

Question

Estou escrevendo uma macro para o Word 2013 para digitalizar todos os documentos mantidos no alimentador do scanner. O problema é que ele digitaliza apenas uma página. Eu preciso chamar macro para cada página.

O que está errado no meu código?

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