powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Программирование [игнор отключен] [закрыт для гостей] / MSWord & Find/Replace
1 сообщений из 1, страница 1 из 1
MSWord & Find/Replace
    #32210532
@Serega@
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ситуация критическая, срочно заканчивать проект надо, а тут подводный камень
очередной
Ситуация:
Есть MS Word, на нем объекты автофигуры "Надпись", там соответственно текст.
записываю макрос, тычу Ctrl+F заполняю форму подстановки, все ништяк находит
и заменяет а то, что мне нужно. Залезаю в VB зырю код, все ништяк, по идее
так и должно быть. Пробую повторить те же действия, но уже с помощью
записанного макроса. Итог, текст, что на листе меняется, текст который в
объекте автофигуры не хочет... Что Word или я не так делаем?

вот код макроса, который генерирует ворд:

Application.Keyboard (1049)
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "<<Полное ФИО страхователя>>"
.Replacement.Text = "Иванов Ван Ваныч"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
...
Рейтинг: 0 / 0
1 сообщений из 1, страница 1 из 1
Форумы / Программирование [игнор отключен] [закрыт для гостей] / MSWord & Find/Replace
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]