出错

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

    Dim obj As Object
    
    Set obj = GetObject("c:\Doc1.doc") ', "word.application")
    obj.Activate
    
    '执行对文档obj的操作
    
    obj.Close要是不行，就去考一个好使的窗体代码编辑一下也许就可以了