Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

14th
Авг

Поиск и замена текста в excel с помощью макроса

Posted by Chas under Basic, Пост-обзор

Здравствуйте! Подскажите можно ли написать макрос, который производит поиск и удалит текст во всем документе указанный в таком формате: «[начальный текст]…[конечный текст]»?

Казанский:
Попробуйте. Можно брать имена из отдельного файла, если это не разовая задача.



Sub Макрос1()

Dim sName$

Do

    sName = InputBox("Введите имя контейнера (без знаков '<','>'):")

    If sName = "" Then Exit Do

    Selection.HomeKey unit:=wdStory

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    With Selection.Find

        .Text = "\<" & sName & "\>*\"

        .Replacement.Text = ""

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchControl = False

        .MatchAllWordForms = False

        .MatchSoundsLike = False

        .MatchWildcards = True

    End With

    Selection.Find.Execute Replace:=wdReplaceAll

Loop

End Sub