VC读写word文件（RTF文件）

这几天一直在研究VC读写有格式文本文件（RTF文件）的方法，终于动明白一些，下面是我的代码，在VS2005下运行正常，希望能帮助大家解决一点问题，若有书写不周，欢迎各位批评指正 。

void CVCreadwriteRTFDlg::OnBnClickedButton1()
{
// 变量的声明
COleVariant  vTrue((short)TRUE), 
                  vFalse((short)FALSE), 
                  vOpt((long)DISP_E_PARAMNOTFOUND,  VT_ERROR);

CApplication oWordApp ;
CSelection oSel ; 
CDocuments oDocs ;
CDocument0 oDoc ; 
CParagraphs paragraphs ;

CStringArray aryText;

long paCounst;
int  lc ;
 
    // 首先建立一个word实例对象
if (!oWordApp.CreateDispatch(TEXT("Word.Application")) ){

AfxMessageBox( TEXT( "CreateDispatch  failed." ) , MB_OK &brvbarMB_SETFOREGROUND); 
return;  // 一定要返回，否则程序崩溃
}

// 显示此对象文件 ，您也可以不调用此句，不显示对象文件
oWordApp.Set_Visi