vb word 转pdf-如何在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

其他问题再找我。

用api函数shellexecute

vb声明
declare function shellexecute lib "shell32.dll" alias "shellexecutea" (byval hwnd as long, byval lpoperation as string, byval lpfile as string, byval lpparameters as string, byval lpdirectory as string, byval nshowcmd as long) as long
说明
查找与指定文件关联在一起的程序的文件名。关联的方式要么是运行程序，要么是打印文件。可用windows注册表编辑器将特定的文件类型同应用程序关联起来。例如，扩展名为.txt的文本文件通常与windows记事本（notepad.exe）关联到一起。如在文件管理器中双击含.txt扩展名的一个文件，就会自行启动记事本程序，并在其中载入文本文件；或者将指定的文件打印出来
返回值
long，大于32表示成功
参数表 ：
参数 类型及说明
hwnd long，指定一个窗口的句柄，有些时候，windows程序有必要在创建自己的主窗口前显示一个消息框。如果发生这种情况，由这个参数指定的窗口就会作为消息框的父窗口使用。在vb环境中，通常将活动窗体的窗口句柄作为这个参数使用
lpoperation string，指定字串“open”来打开lpflie文档；或指定“print”来打印它。也可设为vbnullstring，表示默认为“open”
lpfile string，想用关联的程序打印或打开的一个程序名或文件名
lpparameters string，如lpfile是一个可执行文件，则这个字串包含了传递给执行程序的参数。如lpfile引用的是一个文档文件，或者不需要使用参数，则设为vbnullstring
lpdirectory string，想使用的默认路径完整路径
nshowcmd long，定义了如何显示启动程序的常数值。
注解
这个函数的说明在msdn里是这样的：opens or prints a specified file

open "xxx" for input as #1 ’位置自己添打开文件
open "e:\a.doc" for output as #2
do while not eof(1) '循环读取，直到文件结束
line input #1, strtemp '读取一行内容到变量strtemp
print #2, strtemp '将读入的变量值写入另一文件
loop
close #1 '关闭文件
close #2 '关闭文件

我帮你搜索到了两种方法 虽然我自己也不懂 但是也许你会懂吧

通过vba进行word调用，要替换word中固定位置的值，可以事先在文档中定义标签，然后修改标签的内容即可，不用查找。

vb中用vba调用word的方法：

菜单-》工程-》引用->microsoft word 9.0 object library (后面的数字为版本号）

dim wdapp as new word.application
dim docapp as new word.document

具体用怎么用标签替换，可以到word中录制宏看看就知道了，宏可以直接在vb中通过vba执行。

方法2

使用vb编程时，有时需要调用microsoft word对文字进行编辑、排版及输出。为实现这种调用，可以使用shell函数、ole自动化、在包容器中嵌入word对象等方法。经过试用和比较，总结出了这几种方法的各自特点。

1 使用shell函数直接调用

语法：shell (pathname[,windowstyle]).pathname是指要执行的程序的名字和任何必须的参数或命令行开关，可以包括目录和驱动器名；windowstyle是执行程序的窗口风格的数字。

使用shell调用word比较简单，编程量小，但必须明确指定word所在路径，这不利于移植，而且，不能对word进行控制，不利于程序和word之间的数据交换。

2 使用ole自动化控制microsoft word

2.1 使用方法

(1)word为ole自动化提供一种称为“basic”的对象，要在vb中控制word ,首先要定义一个引用word中“basic”对象的对象变量：dim wordobj as object

(2)将word 中的“basic”对象赋给该对象：set wordobj=createobject("word.basic")

(3)可以使用大多数wordbasic语句和函数控制word或word文档，使用方法和在word宏中使用wordbasic指令的方法基本相同。

(4)关闭word:set wordobj =nothing。

注意：“basic”对象不支持关闭它自己的一个方法。即若在ole自动化中关闭了word，则对象被置为nothing，便不能再对对象进行操作，程序出错。

2.2 vb指令与wordbasic指令的差异

(1)有一些语句和函数不能使用，包括：控制结构，如while…wend和if…then…else；声明语句，如dim；定制对话框相关的语句：fileexit语句；要求数组变量作为参数的语句或函数。

(2)也有一些指令使用方法不同。①返回字符串以一个美元符（$）结束的wordbasic函数的关键字必须括在方括号中。例如，在wordbasic宏中的getbookmark$()语句：mark$=getbookmark$("address")，若用vb调用，必须这样写mark$=wordobj.[ge-tbookmark$]("address")。②选择一个命令按钮用“true”,不选择用“false”

2.3 对ole自动化的说明

word可以为ole自动化给另一个应用提供对象，但是它不能使用ole自动化访问其它应用中的对象。例如：vb和excel可以使用ole自动化访问word，但是word不能使用ole自动化访问它们。

3 在包容器中嵌入word对象

在vb中，要访问在包容器中嵌入的word对象，首先要在项目中插入对象。做法如下：在窗体中插入ole控件，对象类型选择“microsoftword图片”或“microsoft word文档”，再按“确定”。

然后用object属性访问文档或图片，并使用wordbasic语句和函数作用于它。嵌入的对象必须在可被访问之前被激活，可以使用action属性激活ole控件。例如，使用下面指令访问一个嵌入在称为ole1的ole控件中的文档：

dim wordobj as object

ole1.action =7

set wordobj =ole1.object.application. wordbasic

其他方面，使用方法同ole自动化。使用在包容器中嵌入的word对象，word显示的窗口大小、位置与ole控件定义的大小、位置相同，而且工具栏显示位置与word脱离。这一点与ole自动化相比，是个不足。

总之，要想在microsoft visual basic中控制microsoft word，最好使用ole自动化，通过使用wordbasic指令对word进行全面控制，而且，用户使用起来与使用microsoft word一样，非常方便

绝对是自己搜索的