VC如何读取Word文档中的批注内容

最新推荐文章于 2022-11-20 22:24:09 发布

尘雨

最新推荐文章于 2022-11-20 22:24:09 发布

阅读量2k

点赞数

分类专栏： VC++深入分析 C++基础知识系统疑难问题解决文章标签：文档 office vba null application import

本文链接：https://blog.csdn.net/vieri_ch/article/details/7560752

版权

系统疑难问题解决同时被 3 个专栏收录

34 篇文章 0 订阅

订阅专栏

VC++深入分析

19 篇文章 0 订阅

订阅专栏

C++基础知识

14 篇文章 0 订阅

订阅专栏

VC如何读取Word文档中的批注内容

第一步 import office com对象库

Stdafx.h.

#import "C:\Program Files (x86)\Common Files\MicrosoftShared\OFFICE14\MSO.dll" \

rename("RGB","_OfficeRGB")

#import "C:\Program Files (x86)\Common Files\MicrosoftShared\VBA\VBA6\VBE6EXT.OLB"

#import "D:\Program Files\MicrosoftOffice\Office14\MSWORD.OLB"

rename("ExitWindows","_OfficeExitWindows") \

rename("FindText","_ScriptFindText")

第二步 .cpp

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

    HRESULT  hr = S_OK;

    Word::_ApplicationPtr pApp=NULL;

    try
    {
        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;
        longnCmtCount = pDoc->Comments->Count;
        TRACE("Word content: %s\n", (LPCTSTR)(_bstr_t)content);
 

        for(long i = 1; i < nCmtCount+1; i++)

        {
            Word::CommentPtrpCmt=  pDoc->Comments->Item(i);
            _bstr_t bstrCmt =pCmt->Range->Text;
            TRACE("WordComments[%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();