Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Использование OleContainer [D6, WinXP]

Valera © (2004-07-27 04:20:00)
Здравствуйте мастера! Подскажите плз, как осуществить поиск и замену текста документа Word в OleContainer.

Valera (2004-07-30 21:41:00) [1]
Я вообще-то начинающий, но методом тыка у меня получилось такое:
На 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;

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

TUser (2004-07-27 09:39:00) [2]
А точно нужен OleContainer? Может CreateOLEObject.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »