VC读取Word表格字符串

_Application app;
Documents    docs;
_Document    doc;
Tables       WordTables;
Table        WordTable;
Cell  WordCell;
Range        WordRange;
Columns      WordCols;
Rows         WordRows;
if(!app.CreateDispatch("Word.Application"))
{
	MessageBox("创建Word服务失败!",_T("提示"),MB_ICONERROR); 
	return; 
}

docs.AttachDispatch(app.GetDocuments());
app.SetVisible(true);


//打开文件
IDispatch *dispatch=docs.Open(&_variant_t(_T("d://test.doc")),&vtMissing,&vtMissing,&vtMissing,
							  &vtMissing,&vtMissing,&vtMissing,&vtMissing,&vtMissing,&vtMissing,&vtMissing,
							  &vtMissing,&vtMissing,&vtMissing,&vtMissing);
if(dispatch)
{
	doc.AttachDispatch(dispatch);
}
else
{//出错了
	CString szErr="";
	szErr.Format("打开文件出错,请查看文件是否存在!");
	::AfxMessageBox(szErr);
	//退出程序,释放对象
	app.Quit(&vtMissing,&vtMissing,&vtMissing);
	docs.ReleaseDispatch(); 
	app.ReleaseDispatch();
	return;
}

dispatch=doc.GetTables();
if(dispatch)
{
	WordTables.AttachDispatch(dispatch);
}
else
{//出错了
	CString szErr="";
	szErr.Format("取得表格集合出错!");
	::AfxMessageBox(szErr);
	//退出程序,释放对象
	app.Quit(&vtMissing,&vtMissing,&vtMissing);
	docs.ReleaseDispatch(); 
	app.ReleaseDispatch();
	doc.ReleaseDispatch();
	return;
}

int nTableCount=WordTables.GetCount();
if(nTableCount>0)
{
	for(int i=1;i<=nTableCount;i++)
	{
		WordTable.AttachDispatch(WordTables.Item(i));
		WordCols.AttachDispatch(WordTable.GetColumns());
		WordRows.AttachDispatch(WordTable.GetRows());
		int nCols=WordCols.GetCount();
		int nRows=WordRows.GetCount();
		for(int j=1;j<=nRows;j++)
		{
			for(int k=1;k<=nCols;k++)
			{
				dispatch=WordTable.Cell(j,k);
				WordRange.AttachDispatch(dispatch);
				CString szText=WordRange.GetText();
				this->MessageBox(szText);
			}
		}
	}
}

app.Quit(&vtMissing,&vtMissing,&vtMissing);
doc.ReleaseDispatch();
docs.ReleaseDispatch(); 
app.ReleaseDispatch();