C++builder中怎么样将Memo中的文本写入到word中

C++builder中怎么样将Memo中的文本写入到word中

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Variant vWordApp;
try
{
vWordApp = Variant::CreateObject("Word.Application");
}
catch(...)
{
MessageBox(0, L"启动 Word 出错, 可能是没有安装Word.", L"提示", MB_OK | MB_ICONERROR);
return;
}

// 显示Word界面
vWordApp.OlePropertySet("Visible", true);
// 新建一个文档
vWordApp.OlePropertyGet("Documents").OleFunction("Add");
//
Variant vSelect = vWordApp.OlePropertyGet("Selection");

// 插入一段文字
String str1 = Memo1->Text;
vSelect.OleProcedure("TypeText", WideString(str1));
vSelect.OleProcedure("TypeParagraph");

// 将光标移到文档结尾
vWordApp.OlePropertyGet("Selection").OleProcedure("EndKey", 6); //wdStory

}

google TWordApplication 写word