操作word文档书签

操作word文档书签在指定位置添加信息

我们经常会遇到在word中指定的位置添加内容，在这里我们可以通过操作word书签的方式在word文档中指定的添加信息。

1.首先我们需要添加MSWORD.OLB，这里我们通过在头文件中进行添加

2. 打开一个word文档，定位书签的位置，并添加指定的内容

BOOL BookMarks(CString sAffixPath,CString sTitle){MSWord::_ApplicationPtrpWdApplicationPtr;MSWord::_DocumentPtrpWdDocumentPtr;MSWord::RangePtr    pWdRangePtr;MSWord::BookmarksPtr        pWdBookmarksPtr;MSWord::BookmarkPtr    pWdBookmarkPtr;CString sFileName = sAffixPath;  // 打开文件路径COleVariantsourcePath = sFileName;COleVariantvTrue((short)TRUE);COleVariantvFalse((short)FALSE);COleVariantvZero((short)0);COleVariantvOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);CoInitialize(NULL);    // 单线程方式创建HRESULT hResult = pWdApplicationPtr.CreateInstance("Word.Application");if (hResult != S_OK){CoUninitialize();return NULL;}pWdDocumentPtr = pWdApplicationPtr->Documents->Open(sourcePath, vTrue,// Confirm Conversion.vFalse,// ReadOnly.vFalse,// AddToRecentFiles.vOptional,// PasswordDocument.vOptional,// PasswordTemplate.vOptional,// Revert.vOptional,// WritePasswordDocument.vOptional,// WritePasswordTemplate.vOptional,// Format. // Last argument for Word 97vOptional,// Encoding // New for Word 2000/2002vFalse,// visiblevOptional,// openAndRepairvZero,// docDirectionvOptional,// NoEncodingDialogvOptional);if(pWdDocumentPtr == NULL){CoUninitialize();return FALSE;}pWdBookmarksPtr = pWdDocumentPtr2->Bookmarks;CString FindW = _T("标题");// 标题标签COleVariant cInsert(FindW);_bstr_t brFindW = (_bstr_t)FindW;if (!(pWdBookmarksPtr->Exists(brFindW))){AfxMessageBox(_T("没有标题标签"),MB_OKCANCEL);return FALSE;}else{COleVariant cInsert(FindW);pWdBookmarkPtr = pWdBookmarksPtr->Item(&cInsert);pWdRangePtr = pWdBookmarkPtr->GetRange();pWdRangePtr->PutText((_bstr_t)sTitle);AfxMessageBox(_T("标题写入完成"),MB_OKCANCEL);}if(pWdDocumentPtr != NULL){pWdDocumentPtr->Close();pWdDocumentPtr = NULL;}if(pWdApplicationPtr != NULL){pWdApplicationPtr->Quit();pWdApplicationPtr = NULL;}return TRUE;}

3. 在word文档中添加书签，进行测试

添加名字为"标题"的书签

在标题处添加"123"的标题

4.在这我是对固定的书签进行添加也可以修改成通过传参的方式将书签名字传递进行修改。