| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Word & OLEConteiner [Delphi, Windows]

Homa_Programe ©   (2005-02-12 01:33:00) 

вот есть как я понял два варианта поиска текста в ворде:
1) через  Word.Basic
пример:
V := CreateOleObject('Word.Basic');
v.editfind('искомый текст');
v.insert('вставляемый текст');

2) через создание Word.Application
пример:
V := CreateOleObject('Word.Application');
v.selection.find.execute(много всяческих параметров);
вот и такая загвоздка...
в 1-ом случае, не изветно был ли найден такой текст...
во 2-ом случае выдается ошибка что параметры указаны не верно...
помогите!!!

---

YurikGL   (2005-02-13 12:57:00) [1]

var
vr1:olevariant;
begin

try
WordApplication1.Connect;
WordApplication1.Visible:=true;
WordApplication1.Documents.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam);
WordApplication1.Selection.InsertAfter('Proba text');
vr1:='Proba';
WordApplication1.Selection.Find.Execute(vr1,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam ,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam);
//если нужны дополнительные параметры набираешь WordApplication1.Selection.Find.Execute и смотришь их значение в хинте
finally
WordApplication1.Disconnect;
end;

---

Homa_Programer   (2005-02-13 03:57:00) [2]

я и на ссылке был и искал, но все равно у меня вылетает эта четова ошибка:(

а в пером случае нельзя проверить был ли найден текст:(

может какие-то библиотеки я не подключаю???

да и еще я вот находил что-то вроде модуля дополнительного " Word_TLB" он как нужен или нет???

---

GanibalLector   (2005-02-12 02:20:00) [3]

А искать пробовал?да хотя-бы на этой сайте,в этой конференции?

И еще,не понятно...тебе нужно просто поиск или поиск и замена?В любом случае ответ на оба :

http://www.delphimaster.ru/cgi-bin/forum.pl?id=1107512444&n=8

или


uses ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var WordApp:Variant;Doc1:OleVariant;  i:integer;
begin

 WordApp := CreateOleObject('Word.Application');
 WordApp.Documents.add;
 wordapp.visible:=true;
 Doc1 := WordApp.ActiveDocument;

// у тебя там будет загрузка из файла(но мне в лом писать)
// написали что-нибудь
 WordApp.Selection. TypeText('qweert FU..'+#10#13);
 WordApp.Selection. TypeText('retdf FU!!'+#10#13);
 WordApp.Selection. TypeText('GrandMather FU//');
 WordApp.Selection. TypeText('GrantFather FU..');
 WordApp.Selection.HomeKey($00000006);//стали в начало
 WordApp.Selection.Find.Text:='FU';
  if WordApp.Selection.Find.Execute=-1 then
 messagedlg('Во,нашли текст!!!',mterror,[mbok],0);
 ...// и т.д.


---

Наверх