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

Вниз

Word & OLEConteiner   Найти похожие ветки 

← →
Homa_Programe   (2005-02-12 01:33) [0]

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

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

---

← →
GanibalLector ©   (2005-02-12 02:20) [1]

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

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

http://delphimaster.net/view/10-1107512444/

или


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);
 ...// и т.д.


---

← →
Homa_Programer ©   (2005-02-13 03:57) [2]

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

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

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

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

---

← →
YurikGL ©   (2005-02-13 12:57) [3]

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;

---

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

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

Наверх

Память: 0.47 MB
Время: 0.047 c