Макрос по замене текста во всем документе Word - VBA
Формулировка задачи:
На просторах интернета нашел вот такой макрос
Данный макрос делает замену текста во всем документе и даже в колонтитулах, что для меня очень удобно. Но в маем случае нужен вариант когда нужно ввести текст на который необходимо заменить.
Я вставлял в .Replacement.Text = "ооо" вот так .Replacement.Text = InputBox("введите № "), и окно выскакивал постоянно, сколько замен он бы не делал, и в каждом я набирал текст замены.
Можно ли сделать так, что бы я ввел один раз и он далее подставлял везде это.
Заранее спасибо.
Решение задачи: «Макрос по замене текста во всем документе Word»
textual
Листинг программы
Sub FindInStories() Dim myStoryRange As Range, RT as string rt = InputBox("введите № ") For Each ... 'дальше без изменений, только вместо "ooo" пишите rt