VBA替换中文文献引用出现的et al.和and

  问题描述：Endnote是常用的文献管理工具，并提供国标模板Chinese Std GBT7714 (numeric).ens，但Endnote在中英文混排上略欠考虑。Chinese Std GBT7714使用序号的形式（******¹）对文献进行引用，但有时我们需要以作者-年份的形式进行引用，例如：使用******(张三 等)或者******(张三和李四)，而endnote出现的引用经常是******(张三 et al.)或者******(张三 and 李四)。虽然用替换或手动修改也可以解决上述问题，但如果论文篇幅较长（如：学位论文）或者需要反复修改（好不容易把et al.改成了等，若需要再插入文献，更新Endnote后等又变回et al.了），手动修改或替换就过于繁琐了。

  为了解决该问题，也有博客介绍了：将secondary author填为中文名的方法，具体可参考：

endnote管理中文文献及其双语引用: https://blog.csdn.net/rookieWhoCanProduce/article/details/115326114

  但该方法将中文作者设定为secondary author，背离了Endnote的使用逻辑。而且仅能解决参考文献中的et al.，不能解决文中引用的et al.。

  本文采用更加直接的思路——编写VBA程序，使用宏的方法一键修改张三 et al.或者张三 and 李四为张三 等或者张三和李四。不仅修改文章引用中的张三 et al.或者张三 and 李四问题，也修改文末中文参考文献中出现的张三， et al.。

VBA代码的实现思路：

1. 模糊查找[中文] et al.的内容，将其替换为[中文] 等.
2. 模糊查找[中文] and [中文].的内容，将其替换为[中文]和[中文].
3. 模糊查找[中文], et al.的内容，将其替换为[中文], 等.

VBA代码如下：

Sub UCAS_Thesis_Formate()
Attribute UCAS_Thesis_Formate.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.宏2"

'replace 'et al.' in citation with '等'

    ActiveDocument.Content.Select
        With Selection.Find
            .ClearFormatting
            .Text = "[一-龥] et al."
            .MatchWildcards = True
        End With
        While Selection.Find.Execute = True
            c = Selection.Range
            Selection.Range = Left(c, 1) & " 等"
        Wend
        
'replace 'and' in citation with '和'

    ActiveDocument.Content.Select
        With Selection.Find
            .ClearFormatting
            .Text = "[一-龥] and [一-龥]"
            .MatchWildcards = True
        End With
        While Selection.Find.Execute = True
            c = Selection.Range
            Selection.Range = Left(c, 1) & "和" & Right(c, 1)
        Wend
        
'replace 'et al.' in reference with '等'

    ActiveDocument.Content.Select
        With Selection.Find
            .ClearFormatting
            .Text = "[一-龥], et al"
            .MatchWildcards = True
        End With
        While Selection.Find.Execute = True
            c = Selection.Range
            Selection.Range = Left(c, 1) & " 等"
        Wend
End Sub

修改前：

修改后：

修改的gif动画：

测试数据如下，以中科院学位论文的参考文献要求为例，包含基于国标GBT7714修改后的Endnote模板、修改用的VBA代码和测试文档：

VBA替换中文文献引用出现的et al.和and——以中科院学位论文的参考文献要求为例