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

2024-11-28 17:49:53

推荐回答（1个）

回答（1）：

首先说明，你这样是写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

其他问题再找我。