Пакетная замена текста в документах Word


Замена текста выполняется во всех документах Word (.doc и .docx) выбранной папки.

Скачать batchreplace.doc.

Реклама

15 комментариев на «Пакетная замена текста в документах Word»

  1. ivladislaw:

    Протестировал документ с макросом. Полезная штука:) То что когда-то сам писал на VBA, слишком специфично и будет бесполезно, например, для России. Например «сумма прописью», расчёт удержаний из зарплаты и т.д. Есть, правда, книга Excel играющая в шашки. Писалось давно, программка примитивна и небезупречна. Легко обыграть:)

    • Спасибо за оценку. А какова специфика ваших макросов: украинские язык и законодательство?

      Шашки в Excel я бы с удовольствием посмотрел. Можете выложить?

      • ivladislaw:

        Зарплата — ясное дело украинское законодательство. Сумма прописью — в гривнах, поэтому числительные женского рода. Программа писалась так, что любой профессионал ругался бы — вариантные переменные, Option Explicit отсутствует. Однако она работала без ошибок в отличие от «суммы прописью» написанной другим человеком, работавшим ранее программистом «по всем правилам» — та сумму 2 грн с копейками превращала в 11 тысяч — прямо цифру в ячейке (такое можно легко сделать намеренно, но как появилась такая ошибка?). Есть ещё программа, верстающая журналы-ордера, ведомости и оборотный баланс в Excel на основании введённой книги хозяйственных операций. Когда этот же человек проявил инициативу и поставил всем Openoffice, ссылаясь на экономию денег — я был дико злым. Это плохо повлияло на моё отношение к Open Source вообще…
        Думаю, что выложу шашки. Надо сказать, что сделал я их 6 или 7 лет назад и код, скорее всего, ужасен:)

  2. Влад:

    Как сделать, что бы макрос заменял текст в колонтитулах и в надписях?

  3. Александр:

    Плагин внезапно начал выдавать ошибку — 5792 — файл поврежден. Дебагер указывает на строчку (выделена желтым): Set CurrentDoc = Documents.Open(FilePath). Не подскажете — как это можно пофиксить? До этого все работало. перезагрузка не помогает. Word 2016.

    • А вручную вы документ открыть можете, на котором происходит ошибка? Путь к «проблемному документу» можно увидеть в подсказке при наведении курсора мыши на слово FilePath.

      • Александр:

        Очень странный глюк, как выяснилось. FilePath указал, что спотыкается на файле, которого в папке нет. У файла атрибут удаленного (знак доллара в начале). При этом в свойствах проводника стоит настройка — показывать скрытые файлы и папки, корзина очищена, антивирусом просканирована папка. Все ок. но проводник при запросе свойства папки показывает — 9 файлов, а файлов в папке фактически 6. И скрипт спотыкается об один из этих «призраков». Хз, что это. Плагин работает, глюк конкретно моей системы. Спасибо за помощь. Буду искать причину.

  4. Николай:

    Хороший макрос. А можно сделать так чтобы он менял текст сохраняя регистр?

  5. Фрагмент кода VBA, как программиста, пожалуйста )))

  6. Уведомление: Результаты конкурса МИНОА «Сделай это лучше»: пакетная замена текста в документах MS Word, и задание раунда II – МИНОА | МИНОА

  7. Уведомление: Результаты конкурса МИНОА «Сделай это лучше»: Пакетная замена текста в документах MS Word, и задание раунда II – Авторский проект Сергея Гол

  8. Over:

    Господи, это просто великолепно. Нужно было заменить дату в 180 документах, уже представил, как потеряю час на бессмысленную работу, но этот макрос просто спас. Низкий поклон 🙂

  9. Руслан:

    Добрый день!
    А как бы заменить текст с учётом видоизменения? У меня есть ~400 документов с предложением, которое зачёркнуто. Вот нужно это зачёркивание убрать =)

Добавить комментарий

Заполните поля или щелкните по значку, чтобы оставить свой комментарий:

Логотип WordPress.com

Для комментария используется ваша учётная запись WordPress.com. Выход / Изменить )

Фотография Twitter

Для комментария используется ваша учётная запись Twitter. Выход / Изменить )

Фотография Facebook

Для комментария используется ваша учётная запись Facebook. Выход / Изменить )

Google+ photo

Для комментария используется ваша учётная запись Google+. Выход / Изменить )

Connecting to %s