Скачать: CL | DM;

Использование OleContainer   Найти похожие ветки 

← →
Valera   (2004-07-27 04:20) [0]

Здравствуйте мастера! Подскажите плз, как осуществить поиск и замену текста документа Word в OleContainer.

---

← →
TUser ©   (2004-07-27 09:39) [1]

А точно нужен OleContainer? Может CreateOLEObject.

---

← →
Valera   (2004-07-30 21:41) [2]

Я вообще-то начинающий, но методом тыка у меня получилось такое:
На form1 помещается OleContainer, туда загружается документ Word,
кликаем по кнопке поиск и замена на Form1, выскакивает Form2 и уже оттуда

procedure TForm2.BitBtn1Click(Sender: TObject);
Var a, b, c, d  : String;
   V : Variant;
begin
   Test:=True;
   Proverka();
   If Test = False then exit;
//Подключаем WBasic
   V := Form1.OleContainer1.OleObject.Application.WordBasic;
   a:=Edit1.Text;
   b:=Edit2.Text;
   c:=Edit3.Text;
   d:=Edit4.Text;
//Курсор в начало документа
 V.StartOfDocument;
//Ищем текст
 V.EditFind(a);
//Удаляем найденный текст
 V.EditClear;
//Вставка нового текста
 V.Insert(c);
//Курсор в начало документа
 V.StartOfDocument;
//Ищем текст
 V.EditFind(b);
//Удаляем найденный текст
 V.EditClear;
//Вставка нового текста
 V.Insert(d);
 end;

Для простоты я убрал проверку на коррекность ввода.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.02 c