如何在VB中建立word文档,并写入文字和图片?

我刚学VB才一个月,我想把测试仪测得的试验结果(有文字和图片)保存到Word文档里面,下面是我自己写的程序,我只能输入文字,但不会输入图片,望高手指导。本人积分太少,只能... 我刚学VB才一个月,我想把测试仪测得的试验结果(有文字和图片)保存到Word文档里面,下面是我自己写的程序,我只能输入文字,但不会输入图片,望高手指导。本人积分太少,只能加30分,希望不吝高手指导,最好写一段程序。
Private Sub baogao_Click()

CommonDialog1.DialogTitle = "报告"
CommonDialog1.Filter = "Word File (*.doc)|*.doc"
CommonDialog1.ShowSave
If Len(CommonDialog1.FileName) = 0 Then
Exit Sub
End If
FileName3 = CommonDialog1.FileName
Open FileName3 For Append As #3
Print #3, "加热温度(℃)"
Print #3, , T
Print #3, "储气体积(cm3)", "初始气压(KPa)", "初始体积(cm3)"
Print #3, , V, , Po, , Vo
Close #3

End Sub
展开
 我来答
ARTERIOSCLEROS
2008-08-06 · TA获得超过4185个赞
知道大有可为答主
回答量:1672
采纳率:0%
帮助的人:2450万
展开全部
首先说明,你这样是写TXT,不是DOC,虽然Word可以打开,但根本就不是Word文件。当然不能存储图片了。请参考我以下的代码。建一个Command1。
================
Dim ap As Word.Application, doc As Document

Private Sub Form_Load() '这个过程不必做修改,是建立一个新的Word文档
Set ap = CreateObject("word.application")
ap.Visible = True
Set doc = ap.Documents.Add
End Sub

Private Sub Command1_Click()
doc.Content.InsertAfter Text:="请输入你要输入的内容" '插入文字,请使用这种格式
doc.Shapes.AddPicture FileName:="D:\a.jpg" '插入图片,请使用这种格式,路径自己写
End Sub

其他问题再找我。
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式