如何获取Word文件中的文本内容, 请ross33123()帮忙看一下

[goodboyws]

extern "C" __declspec( dllexport) BOOL InitDocStatics()
{
OLECHAR* szFunction;
VARIANT vResult;
//Initialize the COM libraries

// Create an instance of the Word application and obtain the pointer
// to the application's IDispatch interface.
CLSID clsid;
CLSIDFromProgID(L"Word.Application", &clsid);

IUnknown* pUnk;
HRESULT hr = ::CoCreateInstance(clsid, NULL, CLSCTX_SERVER,
IID_IUnknown, (void**) &pUnk);
hr = pUnk->QueryInterface(IID_IDispatch, (void**)&g_pDispApp);

// Get IDispatch* for the Documents collection object
szFunction = OLESTR("Documents");
hr = g_pDispApp->GetIDsOfNames (IID_NULL, &szFunction, 1,
LOCALE_USER_DEFAULT, &g_dispidDocs);
hr = g_pDispApp->Invoke (g_dispidDocs, IID_NULL, LOCALE_USER_DEFAULT,
DISPATCH_PROPERTYGET, &g_dpNoArgs, &vResult,
NULL, NULL);
g_pDispDocs = vResult.pdispVal;
szFunction = OLESTR("Open");
hr = g_pDispDocs->GetIDsOfNames (IID_NULL, &szFunction, 1,
LOCALE_USER_DEFAULT, &g_dispidOpen);

szFunction = OLESTR("Selection");
hr = g_pDispApp->GetIDsOfNames (IID_NULL, &szFunction, 1,
LOCALE_USER_DEFAULT, &g_dispidSel);
szFunction = OLESTR("Close");
g_pDispDocs->GetIDsOfNames(IID_NULL, &szFunction, 1,
LOCALE_USER_DEFAULT, &g_dispidClose);
szFunction = OLESTR("Quit");
g_pDispApp->GetIDsOfNames(IID_NULL, &szFunction, 1,
LOCALE_USER_DEFAULT, &g_dispidQuit);
return TRUE;
}
extern "C" __declspec( dllexport) LPTSTR GetDocumentText(LPCTSTR szFileName, INT iDocType)
{
USES_CONVERSION;
OLECHAR* szFunction;
VARIANT vResult;
VARIANT vArgsOpen[12];
DISPPARAMS dpOpen;
BSTR bstrTemp;
dpOpen.cArgs = 12;
dpOpen.cNamedArgs = 0;
dpOpen.rgvarg = vArgsOpen;

VARIANT vFalse, vTrue, vOpt;
vFalse.vt = VT_BOOL;
vFalse.boolVal = FALSE;

vTrue.vt = VT_BOOL;
vTrue.boolVal = TRUE;

vOpt.vt = VT_ERROR;
vOpt.scode = DISP_E_PARAMNOTFOUND;

bstrTemp = ::SysAllocString(T2OLE(szFileName));
vArgsOpen[11].vt = VT_BSTR;
vArgsOpen[11].bstrVal = bstrTemp; //Filename
vArgsOpen[10] = vFalse; //ConfirmConversions
vArgsOpen[9] = vTrue; //ReadOnly
vArgsOpen[8] = vFalse; //AddToRecentFiles
vArgsOpen[7] = vOpt; //PasswordDocument
vArgsOpen[6] = vOpt; //PasswordTemplate
vArgsOpen[5] = vFalse; //Revert
vArgsOpen[4] = vOpt; //
vArgsOpen[3] = vOpt;
vArgsOpen[2].vt = VT_I4;
vArgsOpen[2].lVal = 0;
vArgsOpen[1] = vOpt;
vArgsOpen[0] = vTrue;

HRESULT hr = g_pDispDocs->Invoke(g_dispidOpen, IID_NULL, LOCALE_USER_DEFAULT,
DISPATCH_METHOD, &dpOpen, &vResult, NULL,
NULL);
if (SUCCEEDED(hr))
{
IDispatch* pDispSel; //Selection object
hr = g_pDispApp->Invoke(g_dispidSel, IID_NULL, LOCALE_USER_DEFAULT,
DISPATCH_PROPERTYGET, &g_dpNoArgs, &vResult,
NULL, NULL);
pDispSel = vResult.pdispVal;
szFunction = OLESTR("Text");
pDispSel->GetIDsOfNames (IID_NULL, &szFunction, 1,
LOCALE_USER_DEFAULT, &g_dispidText);
hr = pDispSel->Invoke(g_dispidText, IID_NULL, LOCALE_USER_DEFAULT,
DISPATCH_PROPERTYGET, &g_dpNoArgs, &vResult,
NULL, NULL);
if (SUCCEEDED(hr))
{
DISPPARAMS dpClose;
VARIANT vArgsClose[3];
dpClose.cArgs = 3;
dpClose.cNamedArgs = 0;
dpClose.rgvarg = vArgsClose;
vArgsClose[0].vt = VT_I4;
vArgsClose[0].lVal = 0;
vArgsClose[1] = vOpt;
vArgsClose[2] = vTrue;
hr = g_pDispDocs->Invoke (g_dispidClose, IID_NULL, LOCALE_USER_DEFAULT,
DISPATCH_METHOD, &dpClose, NULL, NULL, NULL);
pDispSel->Release();
int a = SysStringLen(vResult.bstrVal);
LPTSTR lpTmp = OLE2T(vResult.bstrVal);
LPTSTR lpText = new TCHAR[_tcslen(lpTmp)+1];
_tcscpy(lpText, lpTmp);
SysFreeString(bstrTemp);
SysFreeString(vResult.bstrVal);
return lpText;
}
}
return NULL;
}

......
先执行InitDocStatics,再执行GetDocumentText读取文本,在调用hr = pDispSel->Invoke(g_dispidText, IID_NULL, LOCALE_USER_DEFAULT,
DISPATCH_PROPERTYGET, &g_dpNoArgs, &vResult,
NULL, NULL);
仅仅能返回文本的第一个字符,用你给我的代码就没问题,能帮我找一下原因么

[fzd999]

ross33123()，想不到你在文字处理上有这一手？pf!

[goodboyws]

漏了一个SetRange发现自己好弱智,唉

[fzd999]

晕~分不是这么给的啊 ：）