Поиск и замена в Word
Кто знает, как можно сделать следующие: чтоб моё приложение производило поиск и замену
слов в документе WORD'a. Ну например так; есть Edit1, а в документе имеется тэг типа <Edit1>
мне нужно что бы программа нашла в документе все места где есть этот тэг и заменила его на значение
содержащиеся в Edit1.Text.
Если можно то с примером.
Спасибо. X)-
Доброе время суток!
Кто знает, как можно сделать следующие: чтоб моё приложение производило поиск и замену
слов в документе WORD'a. Ну например так; есть Edit1, а в документе имеется тэг типа <Edit1>
мне нужно что бы программа нашла в документе все места где есть этот тэг и заменила его на значение
содержащиеся в Edit1.Text.
Если можно то с примером.
Спасибо. X)-
Информацию об открытии ворда и нужного тебе документа в нем опускаю. Для замены:
Инициализируем параметры поиска:
WordApp.Selection.Find.ClearFormatting;
WordApp.Selection.Find.Text := 'Текст, который подвергается замене';
WordApp.Selection.Find.Replacement.Text := 'Текст, на который заменяем';
WordApp.Selection.Find.Forward := True;
WordApp.Selection.Find.Wrap := wdFindContinue;
WordApp.Selection.Find.Format := False;
WordApp.Selection.Find.MatchCase := wrfMatchCase in Flags;
WordApp.Selection.Find.MatchWholeWord := False;
WordApp.Selection.Find.MatchWildcards := wrfMatchWildcards;
WordApp.Selection.Find.MatchSoundsLike := False;
WordApp.Selection.Find.MatchAllWordForms := False;
Затем ищем и заменяем:
WordApp.Selection.Find.Execute(Replace := wdReplaceAll);