Програма по замене чисел в Ворде

[Alexander_]

Вот, забыл добавить

[Alexander_]

Возможно в первом варианте проги нужно ввести символы от "[" до "]" (включительно) в переменную, кидать в Мемо1 решать через этот алгоритм а потом заменять соответственно в ворде. Но я не совсем знаю как это организовать

[Iron Monk]

У меня этот код не работает правильно.

[Iron Monk]

Сообщение от Alexander_

Возможно в первом варианте проги нужно ввести символы от "[" до "]" (включительно) в переменную, кидать в Мемо1 решать через этот алгоритм а потом заменять соответственно в ворде. Но я не совсем знаю как это организовать

function FindAndReplace(const FindText, ReplaceText:string):boolean;
const
wdReplaceAll = 2;
begin
  WordApp.Selection.Find.Text :=FindText;
  WordApp.Selection.Find.Replacement.Text :=ReplaceText;
  FindAndReplace:= WordApp.Selection.Find.Execute(Replace:=wdReplaceAll);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
   for i:= 0 to Memo1.Lines.Count - 1 do
   FindAndReplace(Memo1.Lines[i], Memo2.Lines[i]);
end;
end.

[Alexander_]

Когда забиваю в Мемо1 текст из дока (через прогу что была дана выше) а в Мемо2 желаемый результат то при исполнении функции FindAndReplace выбивает ошибку Сервис RTC недоступен.
Ну и кроме этого нужен дельный алгоритм самого редактирования чисел

[Iron Monk]

Забирай...

[Alexander_]

Большое Спасибо! На данном примере текста работает стабильно, надеюсь что и дальше не будет никаких "сюрпризов". Думаю что возможность выбирать нужный файл через DialogOpen добавлю сам, ну и интерфейс немного изменю.

[Iron Monk]

Сообщение от Alexander_

Большое Спасибо! На данном примере текста работает стабильно, надеюсь что и дальше не будет никаких "сюрпризов". Думаю что возможность выбирать нужный файл через DialogOpen добавлю сам, ну и интерфейс немного изменю.

Я вводил разные значения, нормально отрабатывает даже при присутствии в тексте отдельного символа "[".
Удачи.

[Alexander_]

Мда, так и думал что не все проблемы обошли стороной..
Когда программу тестирую на "рабочем" файле, в Мемо1 начинает закидывать весь текст из файла (а там +80к символов), и вылезает ошибка что мало места
Вот пример текста и исходники:

[Iron Monk]

Очень большие абзацы в тексте, не влезают в строку(((