文件操作中一段代码出错求救！！！（问题解决就结贴给全分，不够还可加）

Question

先在一word文档中添加label、textbox控件，再在VB中添加如下代码：
Private Sub Command1_Click()
Dim obj, doc As Object
Set obj = GetObject("d:\test3.doc", "word.appication")
Set doc = obj.activedocument
doc.label1.Caption = "123"
doc.textbox1.Text = "456"
End Sub
运行，但总第一条语句出错，显示为：activex component cant create object!
 大侠救救我怎么回事呢？？？

Answer 1

你少写了一个字母，应该是
Set obj = GetObject("d:\test3.doc", "word.application")
而不是
Set obj = GetObject("d:\test3.doc", "word.appication")

Answer 2

而且你的方法不对，应该是GetObject("d:\test3.doc")直接返回一个Document对象操作，然后直接关闭：    Dim obj As Object
    
    Set obj = GetObject("c:\Doc1.doc") ', "word.application")
    obj.Activate
    
    '执行对文档obj的操作
    
    obj.Close

Answer 3

引用microsoft word object library
然后
dim obj as new word.application
dim doc as new word.document

Answer 4

能不能用这个函数得到一个exe文件

Answer 5

怎么按照大家的建议我都改了，试了试还是不行啊。能不能给个简单完整的实例
贴上来让我看看啊，谢谢大家拉^_^
（btw：这种操作可以看什么书或者什么章节的资料啊，在文件操作中我没看到这方面的资料啊）

Answer 6

应该是word.application  不是  word.appication

Answer 7

Private Sub Command1_Click()
Dim obj As Object
Set obj = GetObject("d:\test3.doc") ', "word.application")
obj.Activate
doc.label1.Caption = "123"
doc.textbox1.Text = "456"
obj.Close
End Sub
  
       

Answer 8

Private Sub Command1_Click()
Dim obj As Object
Set obj = GetObject("d:\test3.doc") ', "word.application")
obj.Activate
obj.label1.Caption = "123"
obj.textbox1.Text = "456"
obj.Close
End Sub

Answer 9

to小马哥 ：
   按你的两种都试了，停在obj.activate,显示 application-defined or object-defined error
 到底怎么回事呢，我们一起解决这个问题吧^_^