VBA заменяет определенную каретку

Все.

Я привык программировать VBA в Excel, но не знаком со структурами Word. Я работаю с библиотекой текстовых файлов, чтобы обновить их. Многие из них либо являются документами OCR, либо были введены вручную.

У каждого есть повторяющийся шаблон, наиболее распространенным из которых является ненужный возврат каретки.

Например, я просматриваю несколько текстовых файлов, в которых после каждой строки есть двойной возврат. Поиск и замена всех двойных возвратов каретки удаляет все различия абзацев. Однако каждая строка имеет длину примерно 30 символов, и если я вручную выполняю следующую логику, это дает мне функциональный документ.

Если после 30+ символов есть двойной возврат каретки, я заменяю их пробелом. Если до двойного возврата было меньше 30 символов, я заменяю их одинарным возвратом.

Может ли кто-нибудь помочь мне с некоторым элементарным кодом, который поможет мне начать работу над этим? Затем я мог бы изменить его для каждого имеющегося у меня «шаблона» текстовых документов.

e.g.

In this case, there are more than

thirty characters per line.  And I

will keep going to illustrate this

example.

This would be a new paragraph, and

would be separated by another of

the single returns.

Я хочу, чтобы код возвращал:

In this case, there are more than thirty character returns. And I will keep going to illustrate this example.

This would be a new paragraph, and would be separated by another of the single returns.

Дайте мне знать, если кто-нибудь может выбросить что-нибудь, с чем я могу поиграть!