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

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

Замена текста в Word XP [Delphi, Windows]

makey22 ©   (2004-05-07 05:50:00) 

Подскажите как в Word XP найти и заменить необходимое слово. Я пробовал двигаться по символьно, но это очень долго обрабатывается даже при небольшом тексте. Word поключен как OLEObject.

---

makey22   (2004-05-12 05:16:00) [1]

Apollo - благодарю за совет, все пректасно работает

---

Apollo   (2004-05-07 13:12:00) [2]

var s1,Tr,Fal,Replace,ReplaceWith,Wrap:OleVariant;
...
 s1:='ЗАГС';
 Wrap := wdFindContinue;
 Replace := wdReplaceOne;
 ReplaceWith := 'qqq';
 Tr:=True;
 Fal:=False;
 WordApplication1.Selection.Find.Execute(S1,Fal,Fal,fal,Fal,Fal,Tr,Wrap,Fal,ReplaceWith,Replace);

---

Думкин   (2004-05-07 10:46:00) [3]

Информация к размышлению:
Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 07.05.2004 отдел ИТ
'
   Selection.Find.ClearFormatting
   Selection.Find.Replacement.ClearFormatting
   With Selection.Find
       .Text = "домой"
       .Replacement.Text = "порой"
       .Forward = True
       .Wrap = wdFindContinue
       .Format = False
       .MatchCase = False
       .MatchWholeWord = True
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "я"
       .Replacement.Text = "пп"
       .Forward = True
       .Wrap = wdFindContinue
       .Format = False
       .MatchCase = False
       .MatchWholeWord = True
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
End Sub

---

Наверх