Sub 中文参考文献改等()
'
' 中文参考文献改等 宏
'
'Selection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWith 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 = TrueEnd WithSelection.Find.Execute Replace:=wdReplaceAll
End Sub

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

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

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