关于VB调用Word的问题！！

Question

本人想实现如下功能：
程序的左边是一个TreeVier,TreeVier的接点内容是从数据库中调出的WORD目录
点击目录从而调出Word，能对Word进行修改保存。(Word保存在数据库中，Word中有表格或图片)

Answer 1

用ole实现，读出word文件，存为临时文件后用ole方式打开。

Answer 2

创建 word.application 对象不行吗？Private Sub Command1_Click()
Dim oWordApp As Object'Start a new instance of Microsoft Word
Set oWordApp = CreateObject("Word.Application")With oWordApp   'Create a new document
   .Documents.Add   'Add text to the document
   .Selection.TypeText Text:="one"
   .Selection.TypeParagraph
   .Selection.TypeText Text:="two"
   .Selection.TypeParagraph
   .Selection.TypeText Text:="three"
   'Save the document
   .ActiveDocument.SaveAs FileName:="c:\Doc1.doc", _
       FileFormat:=0, LockComments:=False, _
       Password:="", AddToRecentFiles:=True, WritePassword _
       :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
       SaveNativePictureFormat:=False, SaveFormsData:=False, _
       SaveAsAOCELetter:=FalseEnd With'Quit Word
oWordApp.Quit'Unload this form
Unload MeEnd Sub