Скачать: CL | DM;

Замена текста в Ворде из макроса   Найти похожие ветки 

← →
Pat ©   (2006-01-26 21:15) [0]

Делаем поиск и замену всех вхождений строки "a" на строку "b". После записи макроса получается следующее:
Sub Макрос1()
   Selection.Find.ClearFormatting
   Selection.Find.Replacement.ClearFormatting
   With Selection.Find
       .Text = "a"
       .Replacement.Text = "b"
       .Forward = True
       .Wrap = wdFindContinue
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
End Sub

При "ручной" замене (Ctrl+H, заполняем две строчки, жмем "заменить все") - все ОК.
Если запустить этот макрос из VBA - строчки, находящиеся в надписях и колонтитулах меняться не будут. Глюк? Как побороть?

---

← →
Pat ©   (2006-01-27 10:03) [1]

up

---

← →
seg   (2006-01-27 10:07) [2]

Значит колонтитулы не попадают в selection.
Надо искать функции работы с колонтитулами.

---

← →
Pat ©   (2006-01-27 21:20) [3]

Хрен с ними с колонтитулами, как с надписями быть? Пока прикрутил "кривой" вариант с перебором всех надписей и поиском в каждой

---

← →
Nikolay M. ©   (2006-01-27 22:05) [4]

> Глюк? Как побороть?

Вряд-ли, скорее, нежелание МС давать правильную информацию о том, как же оно все работает на самом деле :(
Сам мучился с такой же проблемой, в моем случае удалось обойти посредством слияния и автоподстановок. Делал вариант с тупым поиском по тексту: работает, но на больших документах тормозит :(

---

← →
TStas ©   (2006-01-27 23:46) [5]

А работает МС в целом криво. Посмотрите, в экселе в параметрах печати можно установить отступ, шире страници :)

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.039 c