У меня есть отлично работающая функция для поиска и замены переменной текстом в текстовых документах.
HRESULT CMSWord::FindReplace( CString szVar, CString szText, bool bOnlyOnce/*=false*/ )
{
if(m_pWApp==NULL || m_pActiveDocument==NULL) return E_FAIL;
IDispatch *pDocApp;
{
VARIANT result;
VariantInit(&result);
OLEMethod(DISPATCH_PROPERTYGET, &result, m_pActiveDocument, L"Application", 0);
pDocApp= result.pdispVal;
}
IDispatch *pSelection;
{
VARIANT result;
VariantInit(&result);
OLEMethod(DISPATCH_PROPERTYGET, &result, pDocApp, L"Selection", 0);
pSelection=result.pdispVal;
}
IDispatch *pFind;
{
VARIANT result;
VariantInit(&result);
OLEMethod(DISPATCH_PROPERTYGET, &result, pSelection, L"Find", 0);
pFind=result.pdispVal;
}
OLEMethod(DISPATCH_METHOD, NULL, pFind, L"ClearFormatting",0);
szText.Replace(_T("\r\n"), _T("\v"));
COleVariant sVariable(szVar);
COleVariant sReplaceText(szText);
COleVariant replace((long)2);
COleVariant varBoolTrue;
varBoolTrue.boolVal = true;
COleVariant varBoolFalse;
varBoolFalse.boolVal = false;
COleVariant wdContinue((long)1);
bool bFound=false;
IDispatch *pExecute = NULL;
{
for(;;) {
VARIANT result;
VariantInit(&result);
if(OLEMethod(DISPATCH_METHOD, &result, pFind, L"Execute", 8, wdContinue, varBoolTrue, varBoolFalse, varBoolFalse, varBoolFalse, varBoolTrue, varBoolFalse, sVariable)==S_OK) {
pExecute=result.pdispVal;
if(!pExecute) break;
bFound = true;
if(szText.IsEmpty()) DeleteChar(false); else SetSelectionText(szText);
}
else break;
if(bOnlyOnce) break;
}
}
pDocApp->Release();
pSelection->Release();
pFind->Release();
if(!bFound) return E_FAIL;
else return S_OK;
}
Проблема заключается в том, что этот код не будет касаться текста в заголовке или нижнем колонтитуле.
Может быть, есть параметр для метода выполнения pFind?
Честно говоря, я искал эту проблему с понедельника. Большинство моих результатов поиска - документы VB, С#,.NET и VBA, но документации по VС++ OLE немного, несколько строк кода, но ничего полезного. Я даже начал создавать и переводить некоторые макросы Word, ничего не работает.
Здесь, при переполнении стека, я нашел много вопросов, связанных с этой темой. Некоторые из них выглядели многообещающими, но, похоже, они используют некоторые рамки, которые я не знаю, и люди не оставили ответа, если я попросил пример кода или ссылки.
Если кто-то может мне помочь в этом вопросе, это было бы потрясающе, и я бы очень благодарен за ссылки на документацию и код на общую тему автоматизации OLE Word (помимо этой статьи кодепроекта).
Спасибо заранее!