Форум: "Прочее";
Текущий архив: 2006.02.19;
Скачать: [xml.tar.bz2];
Вниз
Замена текста в Ворде из макроса Найти похожие ветки
← →
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 вся ветка
Форум: "Прочее";
Текущий архив: 2006.02.19;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.039 c
