Word 2019 и использование подстановочных знаков в Заменить для удаления новой строки
Я использовал некоторые из этих подстановочных знаков в разделе «Заменить» из других тем здесь и пока что получил хорошие результаты. Но сейчас у меня возникают трудности с нажатием клавиши Enter(новая строка) в каждой строке, а документ очень длинный. Сам документ представляет собой субтитры в формате .txt, созданные из видео Youtube. Я пытаюсь заменить эту новую строку после каждых 5-6 слов.
Я также попробовал большинство опций специальной замены в меню «Заменить» и некоторые другие настройки, о которых я читал здесь, но пока удалось только объединить все буквы вместе.
Мне нужно иметь возможность отформатировать его как обычный текст, т.е. как этот пост.
Файл выглядит примерно следующим образом.
потому что схема Понци не генерирует
любое богатство само по себе
оно должно постоянно привлекать все больше и больше
более крупные группы инвесторов, чтобы сохранить
функционирование
в конце концов новых инвесторов больше не будет
найденный
или большое количество предыдущих инвесторов
1 ответ
Мне неясно, хотите ли вы удалить все возвраты каретки или только лишние между абзацами. Ниже приведен скрипт, который уберет лишние, но возврат каретки в конце абзаца останется.
Сообщите нам об обновлении после того, как вы запустите его для своего файла.
Sub RemoveEmptyParagraphs()
Dim rng As Word.Range
Set rng = ActiveDocument.Content
'eliminate empty paragraphs
With rng.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "^13{2,}" ' look for 2
.Replacement.Text = "^p" 'replace with 1, this is 508 acceptable
.Forward = True
.Wrap = Word.WdFindWrap.wdFindStop
.Format = False
.MatchWildcards = True
End With
rng.Find.Execute Replace:=Word.WdReplace.wdReplaceAll
rng.Find.ClearFormatting
rng.Find.Replacement.ClearFormatting
End Sub