Question

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
With p.Range.Find                .Text = "et al"
                .MatchCase = False
                Do
                    .Execute
             If .Found Then
             selection.Range.HighlightColorIndex = wdRed
             End If
             Loop
             End With

我们公司要求裁判必须有十多位作者才能使用“et al”，（例如，作者1，AB;作者2，AB;作者3，AB;作者4，AB;作者5，AB;作者6，AB;作者7，AB;作者8，AB;作者9，AB;作者10，AB;等人。文章的标题。缩写的期刊名称年份，数量，页面范围。）。但是在“et al”的案例中，有些人使用的作者少于10位。在这种情况下，我想用红色标记等。我试着编辑以下代码。我只能标记整个段落，如何只标记“et al”。希望得到你的帮助，谢谢。

如果裁判没有十位作者和十位或更多，但他仍然使用“et al”，如何标记“et al”red？

0 个答案: