Замена текста в Word!

[BIG-VL]

У меня есть едит. И ворд. В ворде есть текст: @edit1@. Как мне
этот текст (в ворде) заменить на тот, что у меня в едите?

[volvo877]

Поиск и замена в wordе

[BIG-VL]

Читал!!! Не могу понять!!!

[dron-s]

BIG-VL
вот такой вот мудуль

unit MyWord;
 
interface
//*******************создаём объект ворд****************************************
  function CreateWord:boolean;
//*******************делаем видимым*********************************************
  function VisibleWord(Visible:boolean):boolean;
//*******************Поиск и замена*********************************************
  function FindAndReplace(FindText, ReplacementText:string):boolean;
//*******************Проверяем, установлен ли ворд******************************
  function IsWordInstalled: Boolean;
//*******************Открытие документа*****************************************
  function OpenDocFile(FileWord, Pass:string):boolean;
implementation
//*******************необходимые модули*****************************************
uses ComObj,Registry,Windows;
//*******************переменная для работы с объектом***************************
var
  Word:variant;
//*******************создаём объект ворд****************************************
function CreateWord:boolean;
begin
  CreateWord := true;
   try
    Word := CreateOleObject('Word.Application');
   except
    CreateWord := False;
   end;
end;
//*******************делаем видимым*********************************************
function VisibleWord(Visible:boolean):boolean;
begin
  VisibleWord := True;
   try
    Word.Visible := Visible;
   except
    VisibleWord := False;
   end;
end;
//*******************Поиск и замена*********************************************
function FindAndReplace(FindText, ReplacementText:string):boolean;
const
   wdReplaceAll=2;
begin
  Word.Selection.Find.Text := FindText;
  Word.Selection.Find.Replecement.Text := ReplacementText;
  FindAndInsert := Word.Selection.Find.Execute(Replace := wdReplaceAll);
end;
//*******************Проверяем, установлен ли ворд******************************
function IsWordInstalled: Boolean;
var
  Reg: TRegistry;
  s: string;
begin
  Reg := TRegistry.Create;
   try
     Reg.RootKey := HKEY_CLASSES_ROOT;
     Result := Reg.KeyExists('Word.Application');
   finally
     Reg.Free;
   end;
end;
//*******************Открытие документа*****************************************
function OpenDocFile(FileWord, Pass:string):boolean;
const
   wdOpenFormatTemplate=2;
begin
  Word.Documents.Open(FileName:=FileWord,Format:=wdOpenFormatTemplate,
                              PasswordDocument:= Pass);
end;
//*******************Конец модуля***********************************************
end.

полностью рабочий, писал для собственных нужд...
если что н понятно, пиши

[volvo877]

Цитата BIG-VL @ 05.09.06, 08:10

Не могу понять!!!

Что именно не понятно?

[dron-s]

хе, так это же мой модуль
и что тебе тогда правда непонятно!!!!!!!!!?????????

[BIG-VL]

Блин не могу понять, а что именно не могу сказать потому чо всё! Этот модклю подключаю а дальше?

[dron-s]

подключаешь модуль, а дальше используешь его функции

CreateWord;
OpenDocFile('путь к файлу','');
FindAndReplace('что нужно заменить','на что нужно заменить');
VisibleWord;

[volvo877]

Цитата BIG-VL @ 05.09.06, 08:32

что именно не могу сказать потому чо всё!

Если пользуешься процедурой tIce - то:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Word_StringReplace('C:\Test.doc','@edit1@',Edit1.Text, [wrfReplaceAll]); // Замени test.doc на имя своего файла
end;

[BIG-VL]

Цитата dron-s @ 05.09.06, 08:42

подключаешь модуль, а дальше используешь его функции

CreateWord;
OpenDocFile('путь к файлу','');
FindAndReplace('что нужно заменить','на что нужно заменить');
VisibleWord;

Во это уже лучше!!!

Добавлено 05.09.06, 08:47

Цитата volvo877 @ 05.09.06, 08:45

Если пользуешься процедурой tIce - то:

Это я не понял!!!

[dron-s]

Цитата volvo877 @ 05.09.06, 08:45

что именно не могу сказать потому чо всё!

такое чувство, что BIG-VL не имеет не малейшего представления что к чему

[volvo877]

BIG-VL Что, трудно на ник пользователя посмотреть, по той ссылке, которую я тебе дал? Или все время делать тебе Copy+Paste ???

[dron-s]

Цитата BIG-VL @ 05.09.06, 08:47

Во это уже лучше!!!

и что, это тоже не работает?

[BIG-VL]

Цитата volvo877 @ 05.09.06, 08:49

BIG-VL Что, трудно на ник пользователя посмотреть, по той ссылке, которую я тебе дал? Или все время делать тебе Copy+Paste ???

Я смотрел...

Цитата dron-s @ 05.09.06, 08:48

такое чувство, что BIG-VL не имеет не малейшего представления что к чему

Если честно то да не пойму что к чему!!!

Добавлено 05.09.06, 08:53

Цитата dron-s @ 05.09.06, 08:49

и что, это тоже не работает?

Не могу сказать, не проверил ещё!!! Ща проверю и скажу!!!

Добавлено 05.09.06, 08:55
Когда подключил модуль то сказал он ошибка...

[Ошибка] myword.pas(46): Undeclared identifier: 'FindAndInsert'

в строке

FindAndInsert := Word.Selection.Find.Execute(Replace := wdReplaceAll);

[dron-s]

Цитата BIG-VL @ 05.09.06, 08:51

Когда подключил модуль то сказал он ошибка...

[Ошибка] myword.pas(46): Undeclared identifier: 'FindAndInsert'

в строке
FindAndInsert := Word.Selection.Find.Execute(Replace := wdReplaceAll);

ну дык всё правильно... переправь модуль, а вернее функцию FindAndReplace

function FindAndReplace(FindText, ReplacementText:string):boolean;
const
   wdReplaceAll=2;
begin
  Word.Selection.Find.Text := FindText;
  Word.Selection.Find.Replecement.Text := ReplacementText;
  FindAndReplace := Word.Selection.Find.Execute(Replace := wdReplaceAll);
end;