VB中如何生成一個WORD文檔？

DimMyWordAsObject

DimNewDocAsObject

SetMyWord=CreateObject("Word.Application")'創建一個word對象

M=App.Path&"\123.doc"

SetNewDoc=MyWord.Documents.Open(M)

Clipboard.Clear'清除剪貼板

Clipboard.SetDataPicture1.Picture'VBCFBitmap圖片框中圖片裝入剪貼板

MyWord.Selection.TypeText"123"&"."&vbCr'換行

MyWord.Selection.Paste'將剪貼板中的圖像復制到Word文檔中

MyWord.Selection.TypeText(vbCrLf)'換行

NewDoc.Content.InsertAfter"123"&"."&vbCr

SetNewDoc=Nothing

SetMyWord=Nothing'清除對象