Использование 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;

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

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