请问，如何在vb里面调用word

Question

word的版本是2000，能不能点一个command的时候，建立一个word文档，我想用word自动生成标题，然后把vb的picture控件里的图片放到word里面去，最后在word里面自动生成几个字。
谢谢了。

Answer 1

Dim VBWord As word.Application
Dim xlDoc As word.DocumentSet VBWord = CreateObject("Word.Application")
VBWord.Visible = True
VBWord.WindowState = 1Set xlDoc = VBWord.Documents.Add'以下是写标题
VBWord.Selection.TypeText Text:="标题"'以下是插入图片
VBWord.Selection.InlineShapes.AddPicture FileName:=[图片路径], LinkToFile:=False, SaveWithDocument:=True

Answer 2

先谢谢了,Dim VBWord As word.Application，显示用户定义类型未定义，怎么办啊？

Answer 3

还有，那个图片不是从外面的文件获取的，是从vb里面的picture.image获取的，怎么办？
还有怎么给分啊？

Answer 4

一、工程->引用->找到"Microsoft Word 9.0 Object library"，选中即可。
二、那你的picture.image是哪里获取的？不会是数据库中的二进制流吧。如果确实找不到文件路径，你可以用API函数写文件（CreateFile()和WriteFile()），不过有难度。
三、在贴子列表右侧点“管理”，进去就可以给分了。

Answer 5

我picture控件上面的图像是画的啊，用一些line命令画的。
.Selection.TypeText Text:="标题"这个命令好像不是加标题的，是加文本的吧？
我要换行怎么办？
我写的
with vbword
.Selection.TypeText Text "标题"
.Selection.TypeText Text "内容"
end with
运行的时候显示   标题内容
我想有个换行。分我给你了，谢谢.

Answer 6

所有VB中对Word对象的操作都可以在Word文档里用宏录制下来(VBA)，然后你照搬过来就行。
至于在PictureBox中画的线，我没有试过，不过你可以试着把它以二进制流的形式存在缓冲区，再保存成文件。