请问BCB版主：ole操作word 先写一段文字，再插入表格，然后再写一段文字实例代码

请教BCB版主：ole操作word 先写一段文字，再插入表格，然后再写一段文字实例代码
求救：ole 控制word操作，先写一段文字，再插入表格，然后再写一段文字 
[解决办法]
http://www.moon-soft.com/doc/1876.htm
http://www.docin.com/p-101005005.html
[解决办法]
OLE专业户来也！！！

Variant vWordApp;
try
{
    vWordApp = Variant::CreateObject("Word.Application");
}
catch(...)
{
    MessageBox(0, "启动 Word 出错, 可能是没有安装Word.",
            "错误", 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));