将Word嵌入到应用程序中，同时要求能够在应用程序中接受Word中的事件，如Close等该怎么做呢？即OLE

[Iong]

如题

[ketao_78]

没有做过，帮你顶

[Iong]

ding

[block]

下面的代码供你参考，是一个用word 做表格的程序，我试验过了，可以运行。

Dim xlApp As Object '定义存放引用对象的变量。

xlApp = CreateObject("word.application")
'如果要让该应用程序可见， 则需将 Visible 属性设为 True,false。
xlApp.Visible = False
'可以使用 xlApp 访问 Microsoft Excel 的
'其它对象。
' xlApp.Quit() '完成时，调用 Quit 方法关闭
' xlApp = Nothing '该应用程序，然后释放该引用。
Dim wordApp As New Word.Application()

wordApp.Documents.Add()

Dim docActive As Word.Document
Dim tblNew As Word.Table

docActive = wordApp.ActiveDocument
tblNew = docActive.Tables.Add(Range:=docActive.Range(Start:=0, End:=0), NumRows:=1, NumColumns:=4)
tblNew.Cell(Row:=1, Column:=2).Range.InsertAfter(Text:="Cell 1,1")
Dim AppPath As String
AppPath = Application.StartupPath
If AppPath.Substring(AppPath.Length - 1) <> "\" Then AppPath &= "\"
tblNew.Cell(Row:=1, Column:=3).Range.InlineShapes.AddPicture(FileName:=AppPath & "ls.gif", LinkToFile:=False, SaveWithDocument:=True)

tblNew.Rows.Add()
xlApp.quit()
xlApp = Nothing

[block]

补充一下，嵌入word可以通过AxWebBrowser控件，代码：
AxWebBrowser1.Navigate("c:\1.doc")

[szch]

vb.net中取消了OLE控件，用VB6中做浏览器的控件WEB……（具体名字忘了，查一查吧）代替了。