「求助」Word VBA如何实现部分分段符号的替换呢？

十二猪肠

如上图，从PDF复制内容到Word文档上后，就会出现大量不需要的分段，需要进行删减，但并不是全文删减；
目前我的做法是「Ctrl+H」对选中的段落进行「^p→（空）」的替换，但每次都这样操作，处理多段落和多文档时就很繁琐了。
我尝试过用宏录制，把上述步骤录下来，但结果是整篇或者下方段落的分段符全被删除，不知道如何处理--
请各位路过高手大神指出一条明路，感谢


原代码：
Sub 宏2()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

十二猪肠

问题已经解决了，翻了好久，翻到了13年前的一个老贴，当时有一位大神给出了完美答复（懂VBA真的太强了，也不用安装什么插件、软件之类的）；
大神为：tangqingfu，再次感谢，代码如下：
Sub 批量删除空行及合并断行()
'注意不要选中标题行(或如选中替换后应对标题行进行重新排版)
Dim myRange As Range, myend As Long
'如果没有选定区域则作全文档处理
Set myRange = IIf(Selection.Type = wdSelectionIP, ActiveDocument.Content, Selection.Range)
myend = myRange.End  '取得待区域的结束位置
With myRange.Find
    .ClearFormatting '清除查找框格式
    .Replacement.ClearFormatting '清除替换框格式
    .MatchWildcards = True
    .Text = "([!。：……？！”.:…\．\?\!\)）])[^13^l]{1,}"
    .Execute replacewith:="\1", Replace:=wdReplaceAll
End With
End Sub

limonet

可以不用VBA，查找：([!。：……？！）])^13{1,}，替换为\1

wdpfox

要用VBA，否则会把有的标题给无差别处理了

十二猪肠

limonet 发表于 2022-2-16 14:35
可以不用VBA，查找：([!。：……？！）])^13{1,}，替换为\1

嗯，感谢，用VBA的好处主要是针对特定区域完成替换，放到快速访问工具栏上就可以点一下完成替换

十二猪肠

wdpfox 发表于 2022-2-16 19:50
要用VBA，否则会把有的标题给无差别处理了

是的，而且把宏放到快捷栏上，效果非常好；
这段代码绝对是论文、研报等常用PDF者的福音，能用后效率提高得实在太爽了！
身边就没人会这方法，甚至大部分人连替换^p为空的操作也不知道，只能一个段段删。