# 我写个范例,你参考看看

Posted by yeong huann on January 26, 1999 at 18:27:12:

In Reply to: Re: 烦请高手救我！ posted by 小白痴 on January 26, 1999 at 16:56:11:

Dim objWord As Object

Private Sub Command1_Click()
objWord.Visible = True
objWord.ActiveWindow.Close

objWord.Documents.Open FileName:=Me.Text1.Text '填入欲开启的word档的路径及档名

End Sub

Private Sub Form_Load()
Set objWord = CreateObject("Word.Application")
objWord.Documents.Add

End Sub

Follow Ups:

- Re: 我写个范例,你参考看看 小白痴 08:04:19 1/27/99 (2)
  - Re: 可否再完美一点 Lai 08:37:30 1/27/99 (1)
    - Re: 可否再完美一点 yehu@tpts6.seed.net.tw 02:51:38 1/28/99 (0)