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

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

其他问题再找我。

从菜单：项目\添加引用，在打开的对话框的.Net页面中找到：Microsoft.Office.Interop.Word

代码如下：

Dim w As New Microsoft.Office.Interop.Word.Application

Dim d As Microsoft.Office.Interop.Word.Document = w.Documents.Add '添加一文档

d.SaveAs("c:\myWord1") '保存为myWord1文件名。

d.Close()

在Com页面也有Word对象库的引用，大体一样吧，只是路径有所不同。

---