word中怎么快速在每一行下面插入空白一行

ming0018

你们继续猜，我坐等谜底之后再做评论。

jouny118

chendeyan126 发表于 2019-3-11 20:45
还要猜测是行，还是段？是要在电脑上写备注，还是打印出来写备注？
情况很多啊。

在电脑上面写备注，

jouny118

不经意的回头 发表于 2019-3-11 18:37
这个题目的难点在于如何区分楼主所说的一行，是一个段落，还是每一行字都空一行。其实完全可以通过段落间距 ...

主要是要在里面写字进去啊！你这样写不了字啊

jouny118

413191246se 发表于 2019-3-11 17:32
两种方法（请任选其一）：
* 按 Ctrl+A 选定全文，按 Ctrl+H 打开替换对话框，查找"^p"，全部替换为"^p^p" ...

多谢   
第一种方法达到我要的目的

第二种方法只是增加了行间距，不能输入汉字。

jouny118

413191246se 发表于 2019-3-11 17:32
两种方法（请任选其一）：
* 按 Ctrl+A 选定全文，按 Ctrl+H 打开替换对话框，查找"^p"，全部替换为"^p^p" ...

我再追问下，我想让插入的这一行里面都显示（），可以做到吗？  我用   ^P^P()  ，但是都插入到前面去了！

zhanglei1371

简单的问题就使用简单的方法处理：

1. Sub 方案一()
   
2. For i = ActiveDocument.Paragraphs.Count To 1 Step -1
   
3.     ActiveDocument.Paragraphs(i).Range.InsertAfter vbNewLine
   
4. Next
   
5. End Sub
   
6. Sub 方案二()
   
7.     Selection.EndKey wdStory
   
8.     Do While Selection.Start <> 0
   
9.         Selection.MoveUp wdLine
   
10.         Selection.EndKey
    
11.         If Asc(Selection) <> 13 Then Selection.InsertAfter vbNewLine
    
12.         Selection.InsertAfter vbNewLine
    
13.         Selection.HomeKey
    
14.     Loop
    
15. End Sub

复制代码

413191246se

zhanglei 大神 也出手了！——楼主，请全部替换^p为^p（）^p

不经意的回头

chendeyan126 发表于 2019-3-11 20:45
还要猜测是行，还是段？是要在电脑上写备注，还是打印出来写备注？
情况很多啊。

其实这个需求感觉很奇葩……