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

时间:2015-09-22 12:57:53

标签: excel vba excel-vba

正如标题所说,我在编译时收到了这个错误:

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对象库”。

这可能导致什么问题?提前谢谢。

1 个答案:

答案 0 :(得分:1)

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

尝试

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