'在vb编辑环境中,菜单项中选择工程->引用,弹出引用的对话框,添加microsoft word9.0 object library. '在窗体上画一个按钮,然后添加如下代码 Option Explicit Private WithEvents m_app As Word.Application Private WithEvents m_Doc As Word.DocumentPrivate Sub Command1_Click() Set m_Doc = m_app.Documents.Add m_app.Visible = True End SubPrivate Sub Form_Load() Set m_app = New Word.ApplicationEnd SubPrivate Sub Form_Unload(Cancel As Integer) m_app.Quit End SubPrivate Sub m_Doc_Close() m_app.Visible = False MsgBox "退出了!" End Sub
'在窗体上画一个按钮,然后添加如下代码
Option Explicit
Private WithEvents m_app As Word.Application
Private WithEvents m_Doc As Word.DocumentPrivate Sub Command1_Click()
Set m_Doc = m_app.Documents.Add
m_app.Visible = True
End SubPrivate Sub Form_Load()
Set m_app = New Word.ApplicationEnd SubPrivate Sub Form_Unload(Cancel As Integer)
m_app.Quit
End SubPrivate Sub m_Doc_Close()
m_app.Visible = False
MsgBox "退出了!"
End Sub
我可以给120分,决不失言。
注意是自动,相当于可以拦截Word关闭的消息。
Private WithEvents m_Doc As Word.Document
后会有一个 m_Doc_close的事件产生!
这时就把输入的内容在VB中显示出来就行了!