正如标题所说,我在编译时收到了这个错误:
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对象库”。
这可能导致什么问题?提前谢谢。
答案 0 :(得分:1)
.SaveAs2
是文档对象的方法,而不是应用程序对象。
尝试
AppWord.ActiveDocument.SaveAs2 "C:\Docs\MyDoc.pdf", 17