在word中添加方括号数字的脚注和尾注

在word中不管是脚注还是尾注,是没有方括号的"[]"的,我试验了就是自定义也还是不行,那么如何在写论文中,运用方括号的脚注和尾注呢?其实很简单,总体原则就是替换,在替换之前要了解两个标记。“^f”是脚注符号的标记,“^e”是尾注符号的标记,注意:两个标记都不带引号哦。那么如何操作呢?

方法一:替换法(强烈推荐的方法)

第一步、先按照默认标注脚注和尾注的方法标注好。默认的编号是1,2,3,4……

 第二步、替换。

打开快捷键ctrl+F,打开替换对话框。如果替换尾注,请在查找内容中输入:^e,替换中输入:[^&]  然后选择“全部替换。”

当然,你不知道脚注和尾注的标示也是没有问题,在查找和替换下有个“更多”按钮,选择更多,就会出现“格式”和“特殊格式”两个选择的地方,脚注和尾注在特殊格式中,点击“特殊格式”就会看到诸如“脚注标记”、“尾注标记”等诸多标记。^&也在其中,^&就是“查找内容”的意思。

未命名-2.jpg

第三步,注意事项。经过上面的步奏,文章中的脚注和尾注就全部替换完毕了。但要注意的是,如果你再脚注和尾注的数字格式作了任何的手动修改(例如默认是上标,你把上标去掉了),脚注和尾注本身就不会发生变化,需要手动加上[]。

方法二:宏实现法(替换脚注和尾注的宏)
代码如下:
Sub RefineEndNote()
    Dim n As Integer
    n = 1
    For Each Endnote In ActiveDocument.Endnotes
        ActiveDocument.Endnotes(n).Reference.InsertBefore (" [")
        ActiveDocument.Endnotes(n).Reference.InsertAfter ("]")
        ActiveDocument.Endnotes(n).Range.Select
        Selection.MoveLeft Unit:=wdCharacter, Count:=3, Extend:=wdMove
        Selection.TypeText ("[")
        Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
        Selection.Font.Superscript = False
        Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdMove
        Selection.TypeText ("]")
        n = n + 1
    Next
End Sub

相关内容推荐

4 thoughts on “在word中添加方括号数字的脚注和尾注

发表评论

您的电子邮箱地址不会被公开。 必填项已用*标注

蜀icp备15014327