道選引用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"里加文字，加表格，加標(biāo)題


利用vb帶的對象。   
  定義對象：dim   wordApp   as   word.application   
                      dim   thisDoc   as   Document   
                      dim   thisRange   as   Range   
  創(chuàng)建對象:   set   wordApp=createobject("word.application")   
                      set   thisdoc=wordapp.document.add   
  然后利用thisdoc.range   輸入數(shù)據(jù)，也可以加入表格、圖片等