word的ole问题，如何关闭word程序

[adlo]

关闭文档：
VBA: Document.close(SaveChanges,OriginalFormat,RouteDocument);
SaveChanges:如果文档修改过，这个参数决定是否保存这些变化：
wdSaveChanges
wdDoNotSaveChanges
wdPromptToSave
OriginalFormat:当保存文档时，指定使用的格式
wdOriginalFormat 用它的原始格式保存文档
wdWordDocument 用Word格式保存文档
wdPromptUser 问用户是否想用原始格式保存文档。
RouteDocument：如果置为True,这个参数告诉Word发送文档到下一个接受方
跳转到文档中的指定位置：
请问这句VBA在cbuilder里面怎么写（OLE操作），谢谢大家

[aawolf]

在BCB中你可以直接通过OLESERVER来调用WORD，有个WordApplication对象，你可以操作它来控制Word.

[lxpbuaa]

WordApplication.DisConnect();

[yufei_yf]

Variant Document;
Document = Variant::CreateObject("Word.Application");
Document.OleFunction("Close","参数1","参数2",...);
Close可以时别的命令语句

[nanhui]

Variant MSWord;
MSWord=CreateOleObject("Word.Application");
MSWord.OleFunction("Quit");
MSWord = Unassigned;
或
Variant MSWord;
MSWord=CreateOleObject("Word.Application");
Procedure QuitFalse("Quit");
MSWord.Exec(QuitFalse);
MSWord = Unassigned;

[nanhui]

Variant MSWord;
MSWord=CreateOleObject("Word.Application");
........
MSWord.OleFunction("Quit");
MSWord = Unassigned;
或
Variant MSWord;
Procedure QuitFalse("Quit");
MSWord=CreateOleObject("Word.Application");
.......
MSWord.Exec(QuitFalse);
MSWord = Unassigned;