如何在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
展开
2个回答
展开全部
首先说明,你这样是写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
其他问题再找我。
================
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
其他问题再找我。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询