Замена текста в Ворде из макроса

← →
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]

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

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

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

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

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

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

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

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