Что может вызывать восстановление документа?

[alex77755]

Добрый всем день.
Вот такая бяка: попросили написать макрос статистики pdf файлов в выбранной папке. Написал, проверил в 2003, 2007 и в 2010.
У заказчика не работет. Ошибку не выдаёт но при пошаговом прохождении
Восстанавливает документ при переходе от строки
Part1Document.Open (Folder & Application.PathSeparator & wb) к строке
numPages = Part1Document.GetNumPages()
При этом выполнение макроса прекращается

 Sub STATISIKA()

  Dim Folder As String
  Dim wb As String
  Dim i As Integer
    Dim Part1Document As Acrobat.CAcroPDDoc
    Dim numPages As Long
    Set Part1Document = CreateObject("AcroExch.PDDoc")
  'Показываем диалог выбора папки
  With Application.FileDialog(msoFileDialogFolderPicker)
    .Title = "Выберите папку, файлы в которой нужно обработать"
    .ButtonName = "Выбрать"
    .AllowMultiSelect = False
    If .Show Then Folder = .SelectedItems(1) Else Exit Sub
  End With
   i = i + 1
   Cells(i, 1) = "Содержимое папки " & Folder
   i = i + 1
        Cells(i, 1) = "Файл"
        Cells(i, 2) = "Страниц"
  'Начинаем читать файлы из папки
wb = Dir(Folder & Application.PathSeparator & "*.pdf")
  
  While Len(wb) > 0
'Debug.Print wb ' Ctrl+G для открытия окна
        i = i + 1
        Part1Document.Open (Folder & Application.PathSeparator & wb)
        numPages = Part1Document.GetNumPages()
        Part1Document.Close
            Cells(i, 1) = wb
            Cells(i, 2) = numPages
        wb = Dir 'читаем следующий файл
  Wend
    Set Part1Document = Nothing
End Sub

[EducatedFool]

А зачем CreateObject("AcroExch.PDDoc")
если используете раннее связывание? ( Dim Part1Document As Acrobat.CAcroPDDoc)

Не проще ли написать

Dim Part1Document As NEW Acrobat.CAcroPDDoc

Проблема в объекте AcroExch.PDDoc - возможно, у закачика используется другая версия (глючная, некорректно установленная, или ещё что-то)

[alex77755]

Спасибо. Я уже потом понял свою ошибку: смешал ранне и позднее связывание.
В итоге: убрал ссылку в референсах
И применил познее связывание

Dim Part1Document ' 
Set AcroApp = CreateObject("AcroExch.App")

У него действительно оказалась другая версия