Макрос по замене текста во всем документе Word - VBA

Узнай цену своей работы

Формулировка задачи:

На просторах интернета нашел вот такой макрос
Данный макрос делает замену текста во всем документе и даже в колонтитулах, что для меня очень удобно. Но в маем случае нужен вариант когда нужно ввести текст на который необходимо заменить. Я вставлял в .Replacement.Text = "ооо" вот так .Replacement.Text = InputBox("введите № "), и окно выскакивал постоянно, сколько замен он бы не делал, и в каждом я набирал текст замены. Можно ли сделать так, что бы я ввел один раз и он далее подставлял везде это. Заранее спасибо.

Решение задачи: «Макрос по замене текста во всем документе Word»

textual
Листинг программы
Sub FindInStories()
Dim myStoryRange As Range, RT as string
rt = InputBox("введите № ")
For Each ... 'дальше без изменений, только вместо "ooo" пишите rt

Оцени полезность:

13   голосов , оценка 3.615 из 5
Похожие ответы