SaveAs2 дает "Ошибка компиляции: Метод или член данных не найден"

Question

Как видно из названия говорит, я получаю эту ошибку компиляции:

http://i.imgur.com/GqrGMkt.png

Мой код:

Sub PasteToWord() 

    Range("A1").Select 

    Do Until IsEmpty(ActiveCell) 

    Dim AppWord As Word.Application 

    Set AppWord = CreateObject("Word.Application") 
    AppWord.Visible = True 
    Sheets("Sheet1").Range(ActiveCell).Copy 
    AppWord.Documents.Add 
    AppWord.Selection.Paste 

    Application.CutCopyMode = False 

    AppWord.SaveAs2 "C:\Docs\MyDoc.pdf", 17 

    Set AppWord = Nothing 

    AppWord.Quit 

    Loop 

End Sub 

Отладчик выделяет .SaveAs2 как корень проблемы.

Я перешел в меню ссылок Excel VBA и убедился, что отмечены как «Библиотека объектов Microsoft Office 14.0», так и «Библиотека объектов Microsoft Word 14.0».

Что может быть причиной этой проблемы? Заранее спасибо.

Answer 1

.SaveAs2 - это метод объекта документа, а не объект приложения.

Попробуйте

AppWord.ActiveDocument.SaveAs2 "C:\Docs\MyDoc.pdf", 17