VC++6.0 读取word文档中表格的内容

[zhuweiping2003]

麻烦网友提供示例 或者 示例链接

主要功能：
选择一个word文档，然后读取其表格中的内容，表格一般是n*3的。

[青松2]

VC读取Word表格字符串 [code=c_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();][/code]

[青松2]

_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();

[zhuweiping2003]

可以 直接给分

[zhanglincheng]

为什么我提示Cell未定义

[pla12121212]

_variant_t未定义，，vtMissing未定义？？

[pla12121212]

_variant_t未定义，，vtMissing未定义？？怎么回事啊，关注中。。。。

[老张童]

不规则表格怎么读取，比如有合并过的单元格。