如何连接前后断句为段落？

lm3312

在网上下载的文本文件中，有很多不是整段编排的，都是分成若干段句的，请编辑代码，把属于一个自然段的所有断句都连接成一个段落。其中：
一、每个段落的标识：
1、句首为两个全角空格(如果有多个全角空格也算)
2、句首为四个半角空格(如果有多个半角空格也算)
3、段落之间有空行
二、连接时，有保留段间的空行 和 删除段间的空行 两种方法。
（根据具体情况，有时需要有空行间隔，有时不需要）

谢谢。

tcdatongye

Sub aa()
Selection.StartOf unit:=wdStory
With Selection.Find
  .MatchWildcards = True
  .Wrap = wdwindstop
  Do
    .Text = "*^13^13"
    If .Execute = True Then
       Set rng = Selection.Range
       t = .Parent.MoveEndWhile(cset:=Chr(13), Count:=wdBackward)
       Call bb
       rng.Move
       rng.Select
      Else
       Call bb
       Exit Do
    End If
  Loop
End With
End Sub
Function bb()
With Selection.Find
  .Text = "^13"
  .Execute Replace:=wdReplaceAll, replacewith:=""
End With
End Function

lm3312

tcdatongye 发表于 2021-8-3 21:06
Sub aa()
Selection.StartOf unit:=wdStory
With Selection.Find

谢谢！....

wdpfox

Selection.WholeStory
With Selection.Find
  .Text = "([!^13])(^13)([!^13])"
  .Execute Replace:=wdReplaceAll, replacewith:="\1\3"
End With

lm3312

wdpfox 发表于 2021-8-8 13:27
Selection.WholeStory
With Selection.Find
  .Text = "([!^13])(^13)([!^13])"

谢谢。。。

有料大排档

查找替换一分钟内能搞定事情就不用写代码了吧！

lm3312

有料大排档 发表于 2021-8-20 12:33
查找替换一分钟内能搞定事情就不用写代码了吧！

你先自己做到，且没有遗留下大问题再说。

413191246se

1. Sub aaaa_replace()
   
2.     ActiveDocument.Content.Find.Execute "([一-﨩，；、：])(^13)", , , 1, , , , , , "\1", 2
   
3. End Sub

复制代码