Re[4]: word, поиск и замена текста
От: greyfrost  
Дата: 31.03.09 13:12
Оценка:
Здравствуйте, dmitry_npi, Вы писали:

_>А в чем проблема-то? Или вам нужно сгенерировать чисто управляемый код (/clr:pure), без примесей обычного?


честно сказать не особо понлял)) но суть такая, мне нужно сделать приложение именно винформ, а я умею подключать импорт только в консольном приложении...

все заработало, за совет спасибо, но теперь новая проблема. если искать несколько слов подрят, то почемуто ищется только первое(((

Word::Application ^w = gcnew Word::Application();
             Word::Document ^doc = gcnew Word::Document();
             System::Object ^objFileName = gcnew System::Object();
             System::Object ^objFileNameSave = gcnew System::Object();
             System::Object ^objMissing = gcnew System::Object();
             System::Object ^objReplace = gcnew System::Object();
             objReplace=1;
             w->Visible=true;
             objFileName = "C:\\для rabota\\employee.doc";
             objMissing = Missing::Value;
             String ^sid="@id";
             String ^sname="@name";
             String ^sresume="@resume";
             String ^sdob="@dob";
             String ^spicture="@picture";
             String ^srep;

             for (int i=0; i<=this->dataGridView2->RowCount-1; i++){
             doc = w->Documents->Open(objFileName,
                 objMissing,objMissing,objMissing,objMissing,objMissing,
                 objMissing,objMissing,objMissing,objMissing,objMissing,
                 objMissing,objMissing,objMissing,objMissing,objMissing);
             objFileNameSave = "C:\\для rabota\\employee"+dataGridView2->Rows[i]->Cells[0]->Value->ToString()+".doc";
             doc->SaveAs(objFileNameSave,objMissing,objMissing,objMissing,objMissing,
                         objMissing,objMissing,objMissing,objMissing,objMissing,
                         objMissing,objMissing,objMissing,objMissing,objMissing,objMissing);
//id
srep=this->dataGridView2->Rows[i]->Cells[0]->Value->ToString();
w->Selection->Find->ClearFormatting();
w->Selection->Find->Text = sid;
w->Selection->Find->Replacement->ClearFormatting();
w->Selection->Find->Replacement->Text = srep;
w->Selection->Find->Execute(objMissing,objMissing,objMissing,objMissing,
                    objMissing,objMissing,objMissing,objMissing,objMissing,
                objMissing,objReplace,objMissing,objMissing,objMissing,
                objMissing);
//name
srep=this->dataGridView2->Rows[i]->Cells[1]->Value->ToString();
w->Selection->Find->ClearFormatting();
w->Selection->Find->Text = sname;
w->Selection->Find->Replacement->ClearFormatting();
w->Selection->Find->Replacement->Text = srep;
w->Selection->Find->Execute(objMissing,objMissing,objMissing,objMissing,
                    objMissing,objMissing,objMissing,objMissing,objMissing,
                objMissing,objReplace,objMissing,objMissing,objMissing,
                objMissing);
//и дальше еще несколько слов...

меняется толькопервое слово во всех документах
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.