新建word文档，插入文本和表格

网上找的源码，新建一个word文档，并插入文本和表格，代码如下：

void CWordtestDlg::OnNewDoc() 
{
    COleVariant vTrue((short)TRUE);
    COleVariant vFalse((short)FALSE);
    COleVariant vOpt((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
   
    //////////////////////////////////////////////////////////////////////////
    //开始一个新的Microsoft Word实例
    _Application oWordApp;
    if (!oWordApp.CreateDispatch("Word.Application", NULL))
    {
        AfxMessageBox("CreateDispatch failed.", MB_OK | MB_SETFOREGROUND);
        return;
    }
    oWordApp.SetVisible(FALSE);


    //////////////////////////////////////////////////////////////////////////
    //创建一个新的word文档
    Documents oDocs = oWordApp.GetDocuments();
    _Document oDoc = oDocs.Add(vOpt, vOpt, vOpt, vOpt);
    
    
    //把文本添加到word文档
    Selection oSel = oWordApp.GetSelection();
    oSel.TypeText("one");						// 输入文本
    oSel.TypeParagraph();						// 输入段落标记
    oSel.TypeText("two");
    oSel.TypeParagraph();
    oSel.TypeText("three");
	oSel.TypeParagraph();
	oSel.TypeText("four");
    oSel.WholeStory();

    // 设置字体
    _Font font(oSel.GetFont());
    font.SetColor(RGB(255,0,0));
    font.SetSize(14.f);
    oSel.SetFont(font);

    //////////////////////////////////////////////////////////////////////////
    // 表格
    oSel.EndKey(COleVariant((short)wdStory), COleVariant((short)wdMove));
    Range     Rng  = oSel.GetRange();
    Tables    Tbls = oDoc.GetTables(); 
    Table     Tbl  = Tbls.Add(Rng, 5, 5, vOpt, vOpt);

    Borders bords = Tbl.GetBorders();
    bords.SetOutsideLineStyle(wdLineStyleThinThickSmallGap);
    bords.SetOutsideColorIndex(wdBlue);
    bords.SetInsideLineStyle(wdLineStyleDot);
    bords.SetInsideColorIndex(wdGray50);
    oSel.MoveRight(COleVariant((short)1),COleVariant((short)5),COleVariant((short)wdExtend));
    Cells cell = oSel.GetCells();
    cell.Merge();								// 合并单元格
   

//     oSel.MoveDown(COleVariant((short)4),COleVariant((short)1),COleVariant((short)0));
//     oSel.MoveDown(COleVariant((short)5),COleVariant((short)1),COleVariant((short)0));
    oSel.TypeText("123456789");
    oSel.MoveRight(COleVariant((short)1),COleVariant((short)1),COleVariant((short)wdMove));
    oSel.TypeText("李明");
    oSel.MoveRight(COleVariant((short)1),COleVariant((short)1),COleVariant((short)wdMove));
    oSel.TypeText("25");
    oSel.MoveRight(COleVariant((short)1),COleVariant((short)1),COleVariant((short)wdMove));
    oSel.TypeText("技术员");
    oSel.MoveRight(COleVariant((short)1),COleVariant((short)1),COleVariant((short)wdMove));
    oSel.TypeText("本科");
    oSel.MoveRight(COleVariant((short)1),COleVariant((short)1),COleVariant((short)wdMove));
    oSel.TypeText("上海市虹口区民主路315号");


    //保存word文档
    _Document oActiveDoc = oWordApp.GetActiveDocument();

    COleVariant FileName(_T("D:\\Hello.doc"));	//文件名
    COleVariant FileFormat((short)wdFormatDocument);
    COleVariant LockComments((short)FALSE);
    COleVariant Password(_T(""));
    COleVariant AddToRecentFiles((short)TRUE);
    COleVariant WritePassword(_T(""));
    COleVariant ReadOnlyRecommended((short)FALSE);
    COleVariant EmbedTrueTypeFonts((short)FALSE);
    COleVariant SaveNativePictureFormat((short)FALSE);
    COleVariant SaveFormsData((short)FALSE);
    COleVariant SaveAsAOCELetter((short)FALSE);

    oActiveDoc.SaveAs(&FileName,&FileFormat,&LockComments,&Password,
        &AddToRecentFiles,&WritePassword,&ReadOnlyRecommended,
        &EmbedTrueTypeFonts,&SaveNativePictureFormat,&SaveFormsData,
		&SaveAsAOCELetter, vFalse, vFalse, vFalse, vFalse, vFalse);

    //退出word应用程序
    oWordApp.Quit(vOpt, vOpt, vOpt);
}