怎样查找英文段落

onthetrip

附件中没法查找到全部的英文段落，且查到的唯一段落无法替换，请各位老师帮我看看，谢谢。
查找：^13[!一-龥^13]{1,}^13
替换：^13
全部英文段落：见附件中涂色部分

duquancai

除了 涂色部分 的  还有的也叫“英文段落”。很明显“什么叫英文段落？先准确定义清楚！！！”举个例子：如图 红色圈内 难道不算“英文段落？”

Sub W_正则()
    Dim mts As Object, reg As Object, Str$, doc As Document
    Set doc = ActiveDocument: Str = Replace(doc.Content, Chr$(7), "")
    Set reg = CreateObject("vbscript.regexp")
    reg.Global = True: reg.MultiLine = True
    reg.Pattern = "^[^一-﨩\r]+"
    Set mts = reg.Execute(Str)
    If Not mts Is Nothing Then
        For j = mts.Count - 1 To 0 Step -1
            With doc.Range(mts(j).FirstIndex, mts(j).FirstIndex + mts(j).Length)
                .MoveEndWhile Chr$(13): .Text = Empty
            End With
        Next
    End If
End Sub

onthetrip

duquancai 发表于 2017-6-8 18:28
除了 涂色部分 的  还有的也叫“英文段落”。很明显“什么叫英文段落？先准确定义清楚！！！”举个例子：如 ...

谢谢。你说的对，红色圈内也算英文段落，是我定义不准确。
能否告知我用查找替换为什么会失败吗？有没有查找替换的办法？

duquancai

onthetrip 发表于 2017-6-9 08:10
谢谢。你说的对，红色圈内也算英文段落，是我定义不准确。
能否告知我用查找替换为什么会失败吗？有没有 ...

2楼的，就是用的查找替换。。。。。。

onthetrip

duquancai 发表于 2017-6-9 09:14
2楼的，就是用的查找替换。。。。。。

我的意思是用基础操作里的查找替换，在查找框里面应该输入什么样的内容。

duquancai

onthetrip 发表于 2017-6-9 10:51
我的意思是用基础操作里的查找替换，在查找框里面应该输入什么样的内容。

基础操作的我不会，高级的我会。哈哈！

wdpfox

查找中输入^$试试，因在手机上回复，不一定记得准确，仅供参考。