word毕业论文“et al.”替换为“等”——宏

Sub 中文参考文献改等()
'
' 中文参考文献改等 宏
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "([一-龥], )et al."
        .Replacement.Text = "\1等."
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

思路：如文献   [1] 柴莎莎, 刘玉, 任艳敏, et al. 生态脆弱区拟建光伏基地的生态敏感性评价及分区研究——以祁连县为例 [J]. 生态学报, 1-13.

查找文章中所有的“, et al. ”随后替换为“, 等. ”

参考视频：B站：【word快速解决参考文献et al.和等的替换】 word快速解决参考文献et al.和等的替换