15

使用宏，使中文作者后为”等”，英文为”et al”

现在的csl不支持多语言，用Chinese-gb7714-1987-numeric.csl、 Chinese-gb7714-2005-numeric.csl或Chinese-gb7714-2015-numeric.csl 生成的参考文献英文作者超过3个后面也是”等”，如[fig:ch5etal_error]所示（正确的应该是et al）。 下面的方法可以实现将英文作者后面的”等”替换为”et al”， 而中文作者后面保持不变(以Word 2016为例)[^18]。

1. 在word 2016中依次点击（如果没有开发工具，也可在视图中找到）， 在宏名下面的文本框中随便输入一个名称（如abc），点击, 如[fig:ch5macro1]。

   

2. 将Sub abc到End Sub全部删除，用下面的代码替换， 如[fig:ch5macro2],[fig:ch5macro3]:

   Sub deng2etal()
                       '
                       ' deng2etal macro
                       ' English等 -> english, et al
                       '
                       With Selection.Find
                       .Forward = True
                       .ClearFormatting
                       .Text = "(<[A-z]@, )等"
                       With .Replacement
                       .ClearFormatting
                       .Text = "\1et al"
                       End With
                       .Wrap = wdFindStop
                       .Execute Replace:=wdReplaceAll, MatchWildcards:=True
                       End With
                       End Sub
   

   

   

3. 然后关闭宏编辑窗口。

4. 依次点击（如果没有开发工具，也可在视图中找到）， 点击，再点击，如[fig:ch5macro4], 最终效果如[fig:ch5macro5]所示[^19]。

   

   

5. 也可以为这个宏分配按钮，点击快速访问工具栏最后的向下箭头 选择，如[fig:ch5macro6_button]所示。

   

6. 然后在处点击，找到刚才创建的宏，点击 ， 再点返回，如[fig:ch5macro6_button2]所示。

   

7. 在此步骤也可以为宏设置其他按钮形状，添加后，选中这个宏，再点， 选择喜欢的按钮形状，然后点返回即可，如[fig:ch5macro6_button3]所示。 此时快速访问工具栏上就会有这个宏的按钮了，用时点击即可。

   

---

最后更新: 2022-07-31 22:30:57