关于VB调用Word的问题！！

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

1 楼ljc_zy（彷徨）回复于 2004-09-01 19:46:35 得分 5

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

2 楼jam021（jam）回复于 2004-09-01 19:55:26 得分 0

对,用ole来装wordTop

3 楼ynhgk（）回复于 2004-09-01 20:00:03 得分 0

但是保存时图片或表格能保存吗？Top

4 楼ynhgk（）回复于 2004-09-03 18:25:02 得分 0

upTop

5 楼ynhgk（）回复于 2004-09-19 19:29:13 得分 0

没有人回答吗？Top

6 楼VirtualAlloc（我是一只小小小菜鸟～～）回复于 2004-09-19 20:38:33 得分 95

创建   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:=False  
   
  End   With  
   
  'Quit   Word  
  oWordApp.Quit  
   
  'Unload   this   form  
  Unload   Me  
   
  End   SubTop

相关问题

• word
• document
• owordapp
• typetext text
• selection

• 帖主：ynhgk
• ljc_zy
• VirtualAlloc

• Visual Basic类图书
• Visual Basic类源码下载