到目前为止,我已经在其他线程的 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