基本语句

Question

Dim document As Word.document
Set document = wordapp.Documents.Open(App.Path & "\1.doc")这两句话哪错了？为什么说我object requires

Answer 1

wordapp定义了没?
还要引用microsoft word X.0 object Library

Answer 2

wordapp不用定义吧：（怎么定义？

Answer 3

Dim wordapp As Word.Application
Dim document As Word.document
Set document = wordapp.Documents.Open(App.Path & "\1.doc")这样还出错，服了。

Answer 4

Dim wordapp As new Word.Application
Dim document As new Word.document
Set document = wordapp.Documents.Open(App.Path & "\1.doc")

Answer 5

非常感谢，想请教一下，为什么我看我同事做的没加new可以运行，你这个要加new呢？

Answer 6

new 或者CreateObjectDim wordapp As new Word.Application
Dim document As Word.document
Set document = wordapp.Documents.Open(App.Path & "\1.doc")
document不用new