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'清除对象
Copyright © 广州京杭网络科技有限公司 2005-2025 版权所有 粤ICP备16019765号
广州京杭网络科技有限公司 版权所有