VFP调用Word创建文档

VFP调用Word创建文档

在应用系统的设计中，有时要求在程序中自动调用Ｍｉｃｒｏｓｏｆｔ应用程序，如Ｗｏｒｄ或Ｅｘｃｅｌ等来创建文档或制作表格。在开发一个办公系统时，就采用了这种方法。

设计环境：

①ＭｉｃｒｏＳｏｆｔＶｉｓｕａｌＦｏｘＰｒｏ５．０中文版；

②Ｗｉｎｄｏｗｓ９８中文操作系统；

③Ｍｉｃｒｏｓｏｆｔ（Ｒ）Ｗｏｒｄ９７。

首先创建一个表单Ｆｏｒｍ１，在Ｆｏｒｍ１上新建一个命令按扭Ｃｏｍｍａｎｄ１，并设置Ｃｏｍｍａｎｄ１的Ｃａｐｔｉｏｎ为“自动创建Ｗｏｒｄ文档”。 Ｃｏｍｍａｎｄ１的Ｃｌｉｃｋ过程包括下列命令

语句： ｃＭｅｓｓａｇｅＴｉｔｌｅ＝＇启动窗＇

ｃＭｅｓｓａｇｅＴｅｘｔ＝＇启动Ｍｉｃｒｏｓｏｆｔ（Ｒ）

Ｗｏｒｄ９７＇ ｎＤｉａｌｏｇＴｙｐｅ＝０＋６４＋０

ｎＡｎｓｗｅｒ＝ＭＥＳＳＡＧＥＢＯＸ

（ｃＭｅｓｓａｇｅＴｅｘｔ，ｎＤｉａｌｏｇＴｙｐｅ，ｃＭｅｓｓａｇｅＴｉｔｌｅ）

ｆｉｌｅｎａｍｅ＝＇９９年工作计划＇

ｐｕｂｌｉｃｏｂｊｗｄｏｃ

ｎｌｌｏｃａｌｅＩｄ＝ｓｙｓ（３００４）

＝ｓｙｓ（３００６，１０３３）

ｏｂｊＷＤｄｏｃ＝ｃｒｅａ（＂ｗｏｒｄ．ｂａｓｉｃ＂）

ｏｂｊｗｄｄｏｃ．ａｐｐｓｈｏｗ

ｏｂｊＷＤｄｏｃ．ａｐｐｍａｘｉｍｉｚｅ

ｏｂｊｗｄｄｏｃ．ｆｉｌｅｎｅｗｄｅｆａｕｌｔ

ｏｂｊｗｄｄｏｃ．ｆｉｌｅｓａｖｅａｓ（＂＆ｆｉｌｅｎａｍｅ＂）

＝ｓｙｓ（３００６，ｖａｌ（ｎｌＬｏｃａｌｅＩｄ））

ｃＭｅｓｓａｇｅＴｉｔｌｅ＝＇结束窗＇

ｃＭｅｓｓａｇｅＴｅｘｔ＝＇文档创建完毕＇＋ｃｈｒ（１３）＋＇退出Ｍｉ—

ｃｒｏｓｏｆｔ（Ｒ）Ｗｏｒｄ９７＇

ｎＤｉａｌｏｇＴｙｐｅ＝０＋６４＋０

ｎＡｎｓｗｅｒ＝ＭＥＳＳＡＧＥＢＯＸ（ｃＭｅｓｓａｇｅＴｅｘｔ，ｎＤｉａｌｏｇＴｙｐｅ，

ｃＭｅｓｓａｇｅＴｉｔｌｅ）

这样，在命令窗口中运行上述Ｆｏｒｍ时，单击“自动创建Ｗｏｒｄ文档”按扭，则自动调用Ｗｏｒｄ９７创建文档，且文档的名字为“９９年工作计划”。