Word 2019 和在 Replace 中使用通配符删除换行符

Word 2019 和在 Replace 中使用通配符删除换行符

到目前为止,我已经在其他线程的 Replace 中使用了一些通配符,效果不错。但现在我遇到了麻烦,似乎Enter每行都按下了一个键(换行符),而且文档很长。文档本身是从 Youtube 视频生成的 .txt 字幕。我试图在每 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

相关内容