如何获取打开word的文本内容

[wlhjdx]

打开了一个word，如何在另一个程序中读取这个word的内容？

[oysoft]

使用COM

[fengrx]

Word::_DocumentPtr spDoc;
//得到WORD对象
.............
Word::Range* pRange;
spDoc->get_Content(&pRange);
pRange->Text;//文本内容

[fengrx]

下面是得到当前正在打开的WORD对象的代码(没加错处理校验什么的)：
IDispatch *pDisp;
IUnknown *pUnk;
HRESULT hr;
CLSID clsid;

hr = CoInitialize(NULL);
if(FAILED(hr))
return FALSE;
CLSIDFromProgID(L"Word.application", &clsid);
GetActiveObject(clsid,NULL,&pUnk);
pUnk->QueryInterface(IID_IDispatch, (void **)&pDisp);

Word::_ApplicationPtr spApp = pDisp;
Word::_DocumentPtr spDoc;
spApp->get_ActiveDocument(&spDoc);