поиск и замена текста word\excel ole

[anton_ms]

Помогите, пжл, осуществить поиск и замену текста в word\excel при помощи ole. Может кто работал и знает как? или ссылочку полезную.....

[vva]

http://wladm.narod.ru/C_Sharp/componentbegin.html

[AVC]

https://cbuilder.ru/index.php/topic,264.0.html

Ссылка на cppbuilder содержала примерно такой код

Код:

void __fastcall MSWordSubstitute
 (Variant               find
 ,const AnsiString      &oldtext
 ,const AnsiString      &newtext       
 )
{
Variant repl = find.OlePropertyGet("Replacement");
find.OleProcedure       ("ClearFormatting");
repl.OleProcedure       ("ClearFormatting");

find.OleProcedure       ("Execute",
/* FindText             */      oldtext,
/* MatchCase            */      false,
/* MatchWholeWord       */      false,
/* MatchWildcards       */      false,
/* MatchSoundsLike      */      false,
/* MatchAllWordForms    */      false,
/* Forward              */      true,
/* Wrap                 */      1,
/* Format               */      false,
/* ReplaceWith          */      newtext,
/* Replace              */      2
);
}

//---------------------------------------------------------------------------
//---------------------------------------------------------------------------

PACKAGE void __fastcall DocShowInMSWord
 (const AnsiString       &filespec
 ,bool                    readonly
 ,TAxRecord              *substrec // мое, не обращайте внимания
 )
{
if (filespec.Trim().IsEmpty())  return;
if (!FileExists(filespec))
 {  ShowMessage("Не могу найти файл <" + filespec + ">");
    return;
 }

Variant MSWord  = Null;
Variant MWODocs = Null;
Variant MWODoc  = Null;
Variant MWOSel  = Null;
Variant MWOFind = Null;

AnsiString WhereIAm;


try             {       MSWord = Variant::GetActiveObject("Word.Application");  }
catch (...)     {       MSWord = Null;                                          }

if (MSWord.IsNull())
 {      try     {       MSWord = Variant::CreateObject("Word.Application");     }
        catch (Exception &xcp)
         {      ShowMessage("Не могу запустить приложение MSWord\n" + xcp.Message);
                MSWord = Null;
                return;
         }
 }


try     {
WhereIAm = "Set Visible = false";
MSWord.OlePropertySet("Visible", false);

WhereIAm = "Get Documents collection";
MWODocs = MSWord.OlePropertyGet("Documents");

/*
Documents.Open  (FileName, ConfirmConversions, ReadOnly, AddToRecentFiles,
                                 PasswordDocument, PasswordTemplate, Revert,
                                 WritePasswordDocument, WritePasswordTemplate, Format   )
!!!!!!!!!!
        Если Word запущен командной строкой, то он не может открыть документ
!!!!!!!!!
*/
try         {       MWODoc = MWODocs.OleFunction("Open", filespec, false, readonly, false); }
catch (...) {       MSWord.OlePropertySet("Visible", true);         MWODoc = Null;          }

if (MWODoc.IsNull())            //      Попытка создать новый сервер
 {      try
         {      MSWord = Variant::CreateObject  ("Word.Application");
                MSWord.OlePropertySet           ("Visible", false);
                MWODocs = MSWord.OlePropertyGet ("Documents");
                MWODoc  = MWODocs.OleFunction   ("Open", filespec, false, readonly, false);
         }
        catch (Exception &xcp)
         {      ShowMessage (AnsiString("")                                 +
                             "Не могу запустить приложение MSWord.\n"       +
                             "Если оно у Вас уже запущено закройте его и повторите попытку."
                            );
                MSWord = Null;
                return;
         }
 }      // new Word.Application


WhereIAm = "Get Selection";
MWOSel  = MSWord. OlePropertyGet ("Selection");

WhereIAm = "Get Selection.Find";
MWOFind = MWOSel. OlePropertyGet ("Find"     );


TAxRecord *rec                    = substrec;
bool       needsubstitute = rec && (rec->Count > 0);

if (needsubstitute)
 {      AnsiString       fldname;
        AnsiString       fldvalue;
        TAxField        *fld;
        for (int i=(rec->Count-1); i >= 0; i--)
         {      fld = rec->Items[i];
                fldname  = "<#fld" + fld->Name + "#>";
                try             {       fldvalue = fld->AsString;       }
                catch (...)     {       fldvalue = "";                  }
                try     {       WhereIAm = "Substitute " + fldname;
                                MSWordSubstitute(MWOFind, fldname, fldvalue);
                        }
                catch (...)     {       ;       }
         }      // for fields
 }      // need substitute


}       // try  Documents

catch (Exception &xcp)
 {      ShowMessage("Ошибка при подготовке файла.\n" + WhereIAm + "\n" + xcp.Message);
 }

MSWord.OlePropertySet("Visible", true);
MSWord.OlePropertySet("WindowState", 1);        // 0-Normal; 1->Maximize; 2-Minimize

MWOFind = Null;
MWOSel  = Null;
MWODoc  = Null;
MWODocs = Null;
MSWord  = Null;
}

//---------------------------------------------------------------------------

[anton_ms]

Посмотрел ссылки но не работает....
Пишу такой код

Код:

Variant Word,  Document;
  Word=CreateOleObject("Word.Application");
  Word.OlePropertySet("Visible", false);
  Document=Word.OlePropertyGet("Documents");
  Document.OleProcedure("Open", "D:\\test.doc");
  Word.OlePropertyGet("Selection");
  Word.OlePropertyGet("Find");//ошибка
  Document.OleProcedure      ("Execute",
  /* FindText             */      "привет",
  /* MatchCase            */      false,
  /* MatchWholeWord       */      false,
  /* MatchWildcards       */      false,
  /* MatchSoundsLike      */      false,
  /* MatchAllWordForms    */      false,
  /* Forward              */      true,
  /* Wrap                 */      1,
  /* Format               */      false,
  /* ReplaceWith          */      "пока",
  /* Replace              */      2
  );
  Word.OleProcedure("Quit");

Документ открывается, но при обработке вылетает ошибка

[anton_ms]

получилось у меня так

Код:

Word.OlePropertyGet("Selection").OlePropertyGet("Find").OleProcedure("Execute", "привет", false, false, false, false, false, true, 1, false, "пока", 2);

Работает, но теперь спрашивает сохранять ли изменеия в документе, мне не надо чтобы это окошко выскакивало, а надо чтобы сохранялись изменения в документе сразу без вопроса....
что надо еще дописать?

[oxotnik]

по идее Word.OlePropertyGet("Document").OleProcedure("Save", ....)
хотя я в OLE как свинья в апельсинах

[anton_ms]

 работает!!! oxotnik можешь подскажешь как это все в excele сделать, ни как ни могу разобраться с листами и ячейками 

[oxotnik]

работает!!! oxotnik можешь подскажешь как это все в excele сделать, ни как ни могу разобраться с листами и ячейками 

фигасе!
у экселя по идее тоже самое, только в теле документа есть еще и лист (хз как его по аглицки написать... на д...мо похоже ) и есть еще ячейки... глянь либо по форуму, либо эксель открой в его вижуал-бейсике там все свойства перечислены

[anton_ms]

 Help!!! Не могу сделать поиск с заменой в Excel......

[anton_ms]

Посмотрите, кто с ole работал, пишу код

Код:

Variant MSExcel, XLWBooks, XLWBook;
   int i=0;
   MSExcel = CreateOleObject("Excel.Application");
   MSExcel.OlePropertySet("DisplayAlerts", false);
   MSExcel.OlePropertySet("Visible", true);
   XLWBooks = MSExcel.OlePropertyGet("Workbooks");
   XLWBooks.OleProcedure("Open", "D:\\test.xls");
   /*ошибка*/XLWBooks.OlePropertyGet("Item", i+1).OlePropertyGet("WorkSheets").OlePropertyGet("Item", 1).OlePropertyGet("Range", "A1:H20").OlePropertyGet("Find").OleProcedure("Execute","privet",false,false,false,false,false,true,1,false, "пока",2);
   MSExcel.OleProcedure("Quit");
   MSExcel=Unassigned;

вылетает ошибка....
в чем дело не могу разобраться....... 

[Mr.March]

Привет! Посмотрел твой вариант, он действительно не работает:) После того, как прочитал справку на msdn о работе функции Replace, получилось заставить изменять таким образом:

Код

Range=Excel.OlePropertyGet("Range", "A1:C50");
Range.OleProcedure("Replace","text_to_replace", WideString("replacement"));
 

Надеюсь, тем, кто еще столкнется с такой проблемой это поможет

[S0mbre]

Разбей это

Код

XLWBooks.OleProcedure("Open", "D:\\test.xls");
/*ошибка*/XLWBooks.OlePropertyGet("Item", i+1).OlePropertyGet("WorkSheets").OlePropertyGet("Item", 1).OlePropertyGet("Range", "A1:H20").OlePropertyGet("Find").OleProcedure("Execute","privet",false,false,false,false,false,true,1,false, "пока",2);
 

по частям. Во-первых, открываемую книгу сразу назначай переменной:

Код

Variant wBook = NULL;
wBook = XLWBooks.OleFunction("Open", L"D:\\test.xls");
 

Теперь уже работаем с wBook:

Код

Variant wSheet = NULL, wRange = NULL, wFind = NULL;
wSheet = wBook.OlePropertyGet("WorkSheets").OlePropertyGet("Item", 1);
wRange = wSheet.OlePropertyGet("Range", L"A1:H20");
wFind = wRange.OlePropertyGet("Find");
// и так далее...