这是一种方法..
声明变量:
Variant MSWord;
PropertySet VisTrue("Visible");
Procedure QuitFalse("Quit");
PropertyGet GetDocs("Documents");
PropertyGet GetSel("Selection");
Function DocAdd("Add");
Procedure AddText("TypeText");
//需要初始化的值:
VisTrue << true;
QuitFalse << false;
//打开word
MSWord = Variant::CreateObject("Word.Application");
MSWord.Exec(VisTrue);
//新建一个文档
Variant DocCollection = MSWord.Exec(GetDocs);
DocCollection.Exec(DocAdd);
//往word里写东西
Variant Sel = MSWord.Exec(GetSel);
Sel.Exec(AddText << WideString(Edit1->Text));
//关闭word
MSWord.Exec(QuitFalse);
MSWord = Unassigned;