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

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

1 个答案: