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

Posted by 小白痴 on January 27, 1999 at 08:04:19:

In Reply to: 我写个范例,你参考看看 posted by yeong huann on January 26, 1999 at 18:27:12:

: 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: 可否再完美一点 Lai 08:37:30 1/27/99 (1)
  - Re: 可否再完美一点 yehu@tpts6.seed.net.tw 02:51:38 1/28/99 (0)