VBA-Word: Добавить разрыв строки до всех дат в документе

Question

У меня есть журнал чата, который кто-то вставил в MS Word и дал мне, но при вставке все возвраты каретки между чатами были удалены.Каждый чат начинается с даты в формате «ММ / ДД / ГГ» (месяц может содержать только 1 символ).

У меня есть доступ только к VBA, и мне нужно вставлять новую строку перед каждым появлением даты, чтобы сделать этот документ более читабельным.

Answer 1

Вы можете сделать это без VBA, используя поиск и замену.Убедитесь, что выбрано «использовать подстановочные знаки».

• Найти: ([0-9/]{7,8}).Это соответствует 7 или 8 вхождениям одной цифры или косой черты.() захватывает текст для использования при замене.
• Заменить на: ^l\1.Он заменяется символом разрыва строки, за которым следует захваченный текст.

Если есть числовые данные, отличные от дат, вам может потребоваться более конкретная строка поиска: ([0-9]{1,2}/[0-9]{2}/[0-9]{2}).