（VC操作office）怎么读取office文档的批注内容？

[pvlking1]

如题：用ole的方法。WORD EXCEL PPT 给一个例子参考下也行啊。我现在尝试了下word 的CComments类，能拿到批注的个数的。然后要怎么那具体某个批注的文本内容的？

[尘雨]

你用的word application对象吗？

[向立天]

通过录制及宏看一下VBA代码
然后再找对应的com接口

[尘雨]

Word::_DocumentPtr pDoc=pApp ->GetDocuments()->Open(&(_variant_t("C:\\FreeX.docx")));
_bstr_t content=pDoc->Content->Text;
long nCmtCount = pDoc->Comments->Count;
TRACE("Word content: %s \n", (LPCTSTR)(_bstr_t)content);
Word::CommentPtr pCmt= pDoc->Comments->Item(1);
_bstr_t bstrCmt = pCmt->Range->Text;
TRACE("Word Comments: %s, %d \n", (LPCTSTR)bstrCmt, nCmtCount);
pDoc->Close();
pApp->Quit();

[尘雨]

if(FAILED(::CoInitialize(NULL)))
return;

HRESULT hr = S_OK;
Word::_ApplicationPtr pApp=NULL;
try
{

//CLSIDFromProgID(L"Word.Application", &clsid);
pApp.CreateInstance (__uuidof(Word::Application),NULL);
pApp ->PutVisible (VARIANT_TRUE);
Word::_DocumentPtr pDoc=pApp ->GetDocuments()->Open(&(_variant_t("C:\\FreeX.docx")));
_bstr_t content=pDoc->Content->Text;
long nCmtCount = pDoc->Comments->Count;
TRACE("Word content: %s \n", (LPCTSTR)(_bstr_t)content);

for (long i = 1; i < nCmtCount+1; i++)
{
Word::CommentPtr pCmt= pDoc->Comments->Item(i);
_bstr_t bstrCmt = pCmt->Range->Text;
TRACE("Word Comments[%d]: %s\n", i, (LPCTSTR)bstrCmt);
pCmt.Release();
pCmt = NULL;
}
pDoc->Close();
pApp->Quit();

// release documentptr smart pointer;
pDoc.Release();
}
catch (_com_error pCome)
{
TRACE("Error info: %s \n", (LPCTSTR)(_bstr_t)(pCome.Description()));
TRACE("Error info: %s \n", (pCome.ErrorMessage()));
}
if (pApp)
{
pApp.Release();
}
::CoUninitialize();