VFP調(diào)用Word創(chuàng)建文檔
發(fā)表時間：2023-08-11 來源：明輝站整理相關(guān)軟件相關(guān)文章人氣：
[摘要]在應(yīng)用系統(tǒng)的設(shè)計(jì)中，有時要求在程序中自動調(diào)用Ｍｉｃｒｏｓｏｆｔ 應(yīng)用程序，如Ｗｏｒｄ或Ｅｘｃｅｌ 等來創(chuàng)建文檔或制作表格。在開發(fā)一個辦公系統(tǒng)時，就采用了這種方法。設(shè)計(jì)環(huán)境：①ＭｉｃｒｏＳｏｆｔ ...
在應(yīng)用系統(tǒng)的設(shè)計(jì)中，有時要求在程序中自動調(diào)用Ｍｉｃｒｏｓｏｆｔ 應(yīng)用程序，如Ｗｏｒｄ或Ｅｘｃｅｌ 等來創(chuàng)建文檔或制作表格。在開發(fā)一個辦公系統(tǒng)時，就采用了這種方法。
設(shè)計(jì)環(huán)境：
①ＭｉｃｒｏＳｏｆｔ Ｖｉｓｕａｌ ＦｏｘＰｒｏ ５．０中文版；
②Ｗｉｎｄｏｗｓ ９８中文操作系統(tǒng)；
③Ｍｉｃｒｏｓｏｆｔ （Ｒ）Ｗｏｒｄ ９７。
首先創(chuàng)建一個表單Ｆｏｒｍ１，在Ｆｏｒｍ１上新建一個命令按扭Ｃｏｍｍａｎｄ１，并設(shè)置Ｃｏｍｍａｎｄ１的Ｃａｐｔｉｏｎ 為“自動創(chuàng)建Ｗｏｒｄ文檔”。Ｃｏｍｍａｎｄ１的Ｃｌｉｃｋ 過程包括下列命令
語句：ｃ ＭｅｓｓａｇｅＴｉｔｌｅ ＝＇啟動窗＇
ｃ ＭｅｓｓａｇｅＴｅｘｔ ＝＇啟動Ｍｉｃｒｏｓｏｆｔ （Ｒ）
Ｗｏｒｄ ９７＇ｎＤｉａｌｏｇＴｙｐｅ ＝０＋６４＋０
ｎＡｎｓｗｅｒ ＝ＭＥＳＳＡＧＥＢＯＸ
（ｃ ＭｅｓｓａｇｅＴｅｘｔ ，ｎＤｉａｌｏｇＴｙｐｅ ，ｃ ＭｅｓｓａｇｅＴｉｔｌｅ）
ｆｉｌｅｎａｍｅ ＝＇９９年工作計(jì)劃＇
ｐｕｂｌｉｃ ｏｂｊｗｄｏｃ
ｎｌｌｏｃａｌｅＩｄ ＝ｓｙｓ（３００４）
＝ｓｙｓ（３００６，１０３３）
ｏｂｊＷＤｄｏｃ ＝ｃｒｅａ（＂ｗｏｒｄ ．ｂａｓｉｃ＂）
ｏｂｊｗｄｄｏｃ ．ａｐｐｓｈｏｗ
ｏｂｊＷＤｄｏｃ ．ａｐｐｍａｘｉ ｍｉｚｅ
ｏｂｊｗｄｄｏｃ ．ｆｉｌｅｎｅｗｄｅｆａｕｌｔ
ｏｂｊｗｄｄｏｃ ．ｆｉｌｅｓａｖｅａｓ（＂＆ｆｉｌｅｎａｍｅ＂）
＝ｓｙｓ（３００６，ｖａｌ（ｎｌＬｏｃａｌｅＩｄ））
ｃ ＭｅｓｓａｇｅＴｉｔｌｅ ＝＇結(jié)束窗＇
ｃ ＭｅｓｓａｇｅＴｅｘｔ ＝＇文檔創(chuàng)建完畢＇＋ｃｈｒ（１３）＋＇退出Ｍｉ—
ｃｒｏｓｏｆｔ （Ｒ）Ｗｏｒｄ ９７＇
ｎＤｉａｌｏｇＴｙｐｅ ＝０＋６４＋０
ｎＡｎｓｗｅｒ ＝ＭＥＳＳＡＧＥＢＯＸ（ｃ ＭｅｓｓａｇｅＴｅｘｔ ，ｎＤｉａｌｏｇＴｙｐｅ ，
ｃ ＭｅｓｓａｇｅＴｉｔｌｅ）
這樣，在命令窗口中運(yùn)行上述Ｆｏｒｍ 時，單擊“自動創(chuàng)建Ｗｏｒｄ 文檔”按扭，則自動調(diào)用Ｗｏｒｄ ９７創(chuàng)建文檔，且文檔的名字為“９９年工作計(jì)劃”。
（海軍航空工程學(xué)院孔波２６４００１）
