Question

高分悬赏 word（或TXT）中怎样批量插入空行，每两行之间空一行

如题，原文：
几年前 我和我的妻子在商量
In a few years back as my wife and I were thinking
嘿 等我们年迈时 该做些什么呢？
Hey,what are we gonna do when we are old?
我说 你知道 我特别想做的一件事
And I said, you know one of the things that I really would like to do
是与移民相关的工作
is to work with immigrants

我想把它变成：
几年前 我和我的妻子在商量
In a few years back as my wife and I were thinking

嘿 等我们年迈时 该做些什么呢？
Hey,what are we gonna do when we are old?

我说 你知道 我特别想做的一件事
And I said, you know one of the things that I really would like to do

是与移民相关的工作
is to work with immigrants

因为文档一共有1000多句话，纯人工用回车键分行得1000多次，太麻烦，故请教有没有什么简单的方法一次性达到目的，按照上面那种格式分行（即每两行之间空一行）呢？麻烦高手支招，好人一生幸福。。。

Answer 1

打开word里面的原文

菜单栏 点【编辑】 【替换】 【高级】 在 【搜索选项】 下面的【使用通配符】前面打上勾
【查找内容】框里输入
^13*^13
【替换为】 框里输入
^&^13
点全部替换 即可

追问

微软WORD中测试成功，WPS出现下面提示。非常感谢你的回答，祝你幸福，哈哈

Answer 2

1、点击【视图】--【宏】--【录制宏】
2、【请按新快捷键】输入F2
3、【宏】--【停止录制】
4、【宏】--【查看宏】--【编辑】
5、在SUB和END SUB 之间贴入下面代码
6、鼠标停在原文第一行的上一行，（如原文已经是第一行，上面补一空行），
7、按F2或【宏】--【查看宏】--【运行】

Dim I, TOTALROWS As Integer
TOTALROWS = ActiveDocument.BuiltInDocumentProperties("Number of lines").Value
For I = 1 To TOTALROWS Step 2
Selection.MoveDown Unit:=wdLine, Count:=2
Selection.EndKey Unit:=wdLine
Selection.TypeParagraph
Next I

Answer 3

word中可以用替换
光标定位在文首

ctrl+h
查找内容 (*^13*^13)
替换为 \1^13
勾选:使用通配符
单击全部替换

追问

朋友，你的方法和楼下的有异曲同工之妙，只是满意答案只能选一个，不好意思了

追答

解决问题就好

Answer 4

用按键精灵和word宏可以轻松搞定了。word宏： 点击录制宏，两次向下箭头，一次回车。
按键精灵脚本：录制向下箭头两次，回车一次，设置脚本为重复循环（或设定次数）。如果需要我可以录制好脚本，发到您的邮箱哦！

Answer 5

你这是想在英文后面插入空行。
可以试试这种方法：先查找任意字母加段落标记，再将其替换为查找内容加段落标记。
思路是：在英文段落标记后面再加一个段落标记。
我自己没试过，但是觉得可行，你可以试试看。