Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.08.15;
Скачать: 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 вся ветка

Текущий архив: 2004.08.15;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.033 c
1-1091180896
fylhtq
2004-07-30 13:48
2004.08.15
Проблема с кириллицей и буфером обмена


14-1090481423
CHES
2004-07-22 11:30
2004.08.15
пример использования интерфейсов


3-1090229620
AlexanderSK
2004-07-19 13:33
2004.08.15
Копирование данных?


3-1089884745
bon
2004-07-15 13:45
2004.08.15
TDBGridEh


3-1090466241
raptorus
2004-07-22 07:17
2004.08.15
Уважаемые мастера подскажите как можно просмотреть кодировку файл