_bstr_t m_strTemplateFile; //Имя файла. 
::Word::_ApplicationPtr ptr(L"Word.Application");
::Word::_DocumentPtr pDoc;
::Word::DocumentsPtr pDocs = ptr->Documents;
_variant_t vDestFile(m_strTemplateFile);
pDoc = pDocs->Open(&vDestFile);
::Word::RangePtr pRange = pDoc->Content;
::Word::FindPtr pDocFind = pRange->Find;
pDocFind->Forward = true;
pDocFind->Wrap = ::Word::wdFindContinue;
_variant_t searchW = _bstr_t(\\<*\\>); //Шаблон поиска

while (pDocFind->Execute(&searchW)){     
 CString tagText = pRange->Text; 

}

pDocFind->Wrap = ::Word::wdFindContinue;

The remote procedure call failed. 

The stub received bad data.