代碼-在C++builder中，怎麼樣將一段文本寫入到word中

在C++builder中，怎麼樣將一段文本寫入到word中

我要實現的功能很簡單，就是將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 = "要插入的第一段文字\r\n換一個行先";
vSelect.OleProcedure("TypeText", WideString(str1));
vSelect.OleProcedure("TypeParagraph");

// 插入一個表格
int nRowCount = 4; // 行
int nColCount = 5; // 列
vWordApp.OlePropertyGet("ActiveDocument").OlePropertyGet("Tables")
.OleProcedure("Add", vSelect.OlePropertyGet("Range"),
nRowCount, nColCount,
1, // DefaultTableBehavior:=wdWord9TableBehavior
0); // AutoFitBehavior:=wdAutoFitFixed

// 將光標移到文檔結尾
vWordApp.OlePropertyGet("Selection").OleProcedure("EndKey", 6); //wdStory

// 再插入一段文字
String str2 = "要插入的第二段文字";
vSelect.OleProcedure("TypeText", WideString(str2));
}