正则

kerry786032

我想设计个功能，直接找到文献中，十个作者以上的那个文献，我感觉需要用正则来写，但是试了挺多都会出现误差，想请教下老师，用什么方法可以做到把文献中十个作者以上的那条文献标记出来。感激不尽。

duquancai

就是标记第11的 那一个？附件又没模拟标记出来！你手工标记出来啊？到底是要标记哪一个？？？

kerry786032

duquancai 发表于 2017-9-25 16:48
就是标记第11的 那一个？附件又没模拟标记出来！你手工标记出来啊？到底是要标记哪一个？？？

感谢老师的回答！！
是的，就是标记第十一个那个，我重新上传附件，附件中已标记第十一个名字，固定的格式是前面是人名首字母大写加逗号，加一个空格，然后是缩写的大写字母加"." 然后就是";"。 Chow, W.H.;这样的格式

kerry786032

第二个附件

duquancai

Sub shisi()
    Dim d As Document, n&, arr()
    Set d = ActiveDocument
    With d.Content.Find
        Do While .Execute("^13[0-9]@[..]", , , 1)
            With .Parent
                n = n + 1: ReDim Preserve arr(1 To n)
                arr(n) = .Start + 1
                .Collapse 0
            End With
        Loop
    End With
    If n > 10 Then
        d.Range(arr(11), arr(11)).Paragraphs(1).Range.HighlightColorIndex = 6
    End If
End Sub

kerry786032

搞了好久，谢谢老师，感激不尽！

duquancai

kerry786032 发表于 2017-9-25 17:33
搞了好久，谢谢老师，感激不尽！

早点不说清楚，请测试以下代码》》》》》》》》》》》》》》》》
Sub shisi()
    Dim d As Document, reg As Object, p As Paragraph, mt
    Set d = ActiveDocument: d.Content.HighlightColorIndex = 0
    Set reg = CreateObject("VBScript.Regexp")
    reg.Global = True: reg.Pattern = "[A-Z][a-z]*, ([A-Z].)+;"
    For Each p In d.Paragraphs
        If reg.Execute(p.Range.Text).Count > 10 Then
            m = reg.Execute(p.Range.Text)(10).FirstIndex
            n = reg.Execute(p.Range.Text)(10).Length
            With d.Range(p.Range.Start + m, p.Range.Start + m + n)
                .HighlightColorIndex = 6
            End With
        End If
    Next
End Sub

kerry786032

下次发帖一定注意言语表达准确，感谢老师。

kerry786032

duquancai 发表于 2017-9-25 18:38
早点不说清楚，请测试以下代码》》》》》》》》》》》》》》》》
Sub shisi()
    Dim d As Document,  ...

杜老师您好，上次你给我写的代码完美运行，现在我又想把未满十个作者，但是仍然在后面用了，et al.的那条文献，用红色把，et al.标记出来。
Sub testname()
    Dim d As Document, reg As Object, p As Paragraph, mt
    Set d = ActiveDocument: d.Content.HighlightColorIndex = 0
    Set reg = CreateObject("VBScript.Regexp")
    reg.Global = True: reg.Pattern = "[A-Z][a-z]*, ([A-Z].)+;"
    For Each p In d.Paragraphs
        If reg.Execute(p.Range.Text).count > 1 And reg.Execute(p.Range.Text).count < 10 And InStr(p, "et al") > 0 Then
          p.Range.HighlightColorIndex = wdRed
       End If  
    Next
End Sub我只能把有问题的那一条文献整个标记出来，我怎么去选择et al 呢，我尝试想从已经查找到的p中再去查找，
With p.Range.Find                .Text = "et al"
                .MatchCase = False
                Do
                    .Execute
             If .Found Then
             selection.Range.HighlightColorIndex = wdRed
             End If
             Loop
             End With
但还是不对，自身知识不够，会的语句就那么几个，wordVBA网上的解答也比较少，希望老师指导一下。

kerry786032

已解决

1. Sub teaame()
   
2.     Dim d As Document, reg As Object, rngParagraph, p As Paragraph, rngDoc As Range
   
3. 
   
4.     Set d = ActiveDocument: d.Content.HighlightColorIndex = 0
   
5.     Set reg = CreateObject("VBScript.Regexp")
   
6.     reg.Global = True: reg.Pattern = "[A-Z][a-z]*, ([A-Z].)+;"
   
7.     For Each p In d.Paragraphs
   
8.         If reg.Execute(p.Range.Text).count > 1 And reg.Execute(p.Range.Text).count < 10 And InStr(p, "et al") > 0 Then
   
9.          
   
10.                
    
11.           m = InStr(p, "et al") - 1
    
12.             
    
13.             With d.Range(p.Range.Start + m, p.Range.Start + m + 5)
    
14.                 .HighlightColorIndex = 6
    
15.             End With
    
16.            
    
17.        End If
    
18.         
    
19.     Next
    
20.    
    
21. End Sub

复制代码