如何用代码删除选定部分的硬回车-？

zzpsx

如何用代码删除选定部分的硬回车-？.rar (16 KB, 下载次数: 13)

2023-3-2 13:39 上传

点击文件名下载附件

ocr识别而来的文本，红色部分为需要选中部分，

剑指E

既然需要人为选定区域，CTRL+H查找、替换就行了，简单省事。

zzpsx

剑指E 发表于 2023-3-2 14:07
既然需要人为选定区域，CTRL+H查找、替换就行了，简单省事。

我试过您的方法了，把不选中的也替换了。

剑指E

zzpsx 发表于 2023-3-2 14:32
我试过您的方法了，把不选中的也替换了。

提示是否从文档开头查找时按“否”

zzpsx

剑指E 发表于 2023-3-2 16:00
提示是否从文档开头查找时按“否”

好像啊没用啊

zzpsx

Sub 删除回车()
'删除选中部分的回车 Macro
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

以上代码好像可以删除选中部分的硬回车，但是执行代码后，两个单词粘在一起了。

413191246se

"^p"-->" "

守候_CJ

1. Sub 删除回车()
   
2.     '删除选中部分的回车 Macro
   
3.     Selection.Find.ClearFormatting
   
4.     Selection.Find.Replacement.ClearFormatting
   
5.     With Selection.Find
   
6.         .Text = "([!^13 ])[ ^13]@([!^13 ])"
   
7.         .Replacement.Text = "\1\2"
   
8.         .Forward = True
   
9.         .Wrap = wdFindStop
   
10.     End With
    
11.     Selection.Find.Execute Replace:=wdReplaceAll
    
12. End Sub

复制代码

zzpsx

守候_CJ 发表于 2023-3-3 00:42

谢谢高手，不过针对我的附件，在我的电脑上，您的代码好像不起作用，高手可否在附件上试试，谢谢。

zzpsx

413191246se 发表于 2023-3-2 23:39
"^p"-->" "

把^p替换为什么？