如何获取Word文件中的文本内容

[goodboyws]

如题

[smch]

用WORD控件应该有相应的函数。

[快乐鹦鹉]

呵呵，好像很难哦。看看下面谁有办法。我就不用贴分了。

[ross33123]

不难吧，用 DISPATCH 接口就可以了，当然前提是 WORD 已经安装

[goodboyws]

给个例子：）

[zoufans]

以前做的是读取记事本里面的文字信息，不知道可以通用不？？
void CConformationDlg::OnBUTTONSelectFile()
{CFileDialog OpenFileDlg(TRUE,"","",OFN_OVERWRITEPROMPT); // 打开语料文件
if(OpenFileDlg.DoModal()!=IDOK)
return;

this->m_MyFileName=OpenFileDlg.GetPathName(); // 将文件名显示在文本框里
UpdateData(FALSE);
UpdateWindow();

FILE * inMyFile;

inMyFile=fopen(m_MyFileName,"r");

CStdioFile tmpFile(inMyFile);
CString CurLine="",allLine="";
int i=0;
lines.RemoveAll();

while (tmpFile.ReadString(CurLine))
{ // 将文本文件中的行读到字符串变量allline和lines中
allLine=allLine+CurLine+"\r\r\n";
lines.Add(CurLine+"\n");
i++;
}

this->m_MyTextBody = allLine; // 在文本框中显示文本内容
UpdateData(FALSE);
UpdateWindow();

tmpFile.Close();


}

[goodboyws]

晕，当然不通用

[快乐鹦鹉]

WORD有自己的格式，怎么可以用读WORD的方式呢。

[ross33123]

CWaitCursor wait;

_Application app;

if( !app.CreateDispatch("Word.Application") )
{
AfxMessageBox("Couldn't start Word.");
}
else
{
COleVariant
covTrue((short)TRUE),
covFalse((short)FALSE),
covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR),
covSaveChanges((long)-1),
covFileName(CString("d:\\mydear.doc"));


//app.SetVisible(TRUE);
Documents docs = app.GetDocuments();
_Document doc = docs.Open(covFileName, covOptional, covOptional, covOptional,
covOptional, covOptional, covOptional,
covOptional, covOptional, covOptional, covOptional, covOptional);

Selection sel = app.GetSelection();
sel.SetRange(0, INT_MAX);
AfxMessageBox(sel.GetText());

[ross33123]

在这之前先用classwizard导入WORD的type library

对OFFICE2000而言就是 \Program Files\Microsoft Office\Office\MSWORD9.OLB

然后在你自己的文件里#include "msword9.h"

[ross33123]

最后别忘了

app.Quit(covSaveChanges, covOptional, covOptional);

[StormRainbow]

有办法，先将WORD文件内容转存成TXT，再将其内容读出来。但格式就没了。将WORD文件内容转存成TXT请看一下，WORD的文档对象有一个OPEN方法，其中的参数有相关的。建议看一下VBAWRD9.CHM

[ross33123]

再加几句废话，别忘了在程序开始处
CoInitialize(NULL);
结束处
CoUninitialize();