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

Вниз

Замена текста в Word XP   Найти похожие ветки 

← →
makey22   (2004-05-07 05:50) [0]

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

---

← →
Думкин ©   (2004-05-07 10:46) [1]

Информация к размышлению:
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

---

← →
Apollo ©   (2004-05-07 13:12) [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);

---

← →
makey22   (2004-05-12 05:16) [3]

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

---

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

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

Наверх

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