word, поиск и замена текста
От: greyfrost  
Дата: 29.03.09 18:09
Оценка:
в общем суть такая, полазил я полазил по форумам, но такого вроде нет. я создал приложение виндовсформ, подключил его к референсу Microsoft::Office::Interop::Word (без всяких #import) дальше все работало замечательно открываю, ищу просто с помощью перебора, а вот сравнить его с тем что надо не могу так как когда пытаюсь обратиться к свойству Range->Text мне во первых не вылазиет подсказки после "->", что он там есть, хотя в обозревателе объектов он есть и во время отладки тоже получается посмотреть его значение.

 Word::Application ^w = gcnew Word::Application();
             w->Visible=true;
             Word::Document ^doc = gcnew Word::Document();
             System::Object ^objFilename = gcnew System::Object();
             System::Object ^objMissing = gcnew System::Object();
            
             objFilename = "C:\\rabota\\employee.doc";
             objMissing = Missing::Value;

             doc = w->Documents->Open(objFilename,
                 objMissing,objMissing,objMissing,objMissing,objMissing,
                 objMissing,objMissing,objMissing,objMissing,objMissing,
                 objMissing,objMissing,objMissing,objMissing,objMissing);

             String ^s="@id";
             System::Object ^objBegin = gcnew System::Object();
             System::Object ^objEnd = gcnew System::Object();
             Word::Range ^r=doc->Content;
             for(int i=0; i<=50-s->Length;i++) {
                 objBegin=i;
                 objEnd=i+s->Length;
                 r=doc->Range(objBegin,objEnd);
                 if (r->!!!!!!!!!!!!!!!!!!!!!!!==s){
                 r->Cut();
                     r->InsertAfter("пара слов");
                 };


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