怎么才能用查找到这个换行符，并替换它？

小折哥

如下图中标示，我只想找到第二行（红圈）空行中的回车符。主要意图就是想对独立的一个空行进行替换修改。但不知道查询条件如何设定

limonet

^p，这个就是段落标记。

小折哥

如图中例子，用^P查找时会将所有段落标记全部定位或替换，而我只想对中间的那一行空行进行定位。

以木为马

关键问题你没说定位到它要干什么

以木为马

提供一个思路： ^p^p   替换为^pkkk^p    查找kkk^p   标记为红色  删除kkk   查找红色^p            

limonet

查找：^p^p
替换：^p

413191246se

1. Sub DeleteBlankLines()
   
2.     Dim i As Paragraph
   
3.     For Each i In ActiveDocument.Paragraphs
   
4.         If Asc(i.Range) = 13 Then i.Range.Delete
   
5.     Next
   
6. End Sub

复制代码

小折哥

以木为马 发表于 2022-3-23 16:24
提供一个思路： ^p^p   替换为^pkkk^p    查找kkk^p   标记为红色  删除kkk   查找红色^p

真不错，点赞，我怎么就没想到呢？

小折哥

413191246se 发表于 2022-3-23 22:39

使用你的代码完美解决，非常感谢

小折哥

感谢 @limonet @413191246se @以木为马 的回复