vb生成word.txt

来自「用visual basic 语言是文件以word的形式显示出来」· 文本 代码 · 共 30 行

道选引用Word9类型库   
          Dim   W   As   Word.Application   
          Dim   E   As   Boolean   
          On   Error   GoTo   E1   
          Set   W   =   GetObject(,   "word.application")   
          GoTo   L1   
  E1:   Set   W   =   GetObject("",   "word.application")   
          E   =   True   
  L1:   
          W.Documents.Add   
          W.ActiveDocument.SaveAs   "c:\abcd.doc"   
          W.ActiveDocument.Close   
          If   E   Then   W.Quit   
          MsgBox   "OK"



  
  比如说：我建立了"c:\abcd.doc"   
          我怎么在"c:\abcd.doc"里加文字，加表格，加标题


利用vb带的对象。   
  定义对象：dim   wordApp   as   word.application   
                      dim   thisDoc   as   Document   
                      dim   thisRange   as   Range   
  创建对象:   set   wordApp=createobject("word.application")   
                      set   thisdoc=wordapp.document.add   
  然后利用thisdoc.range   输入数据，也可以加入表格、图片等