毕业证上有编号是什么字体（学校要求毕业论文的尾注号要用带圈数!）

尾注数字号转换为带圈数字()尾注为普通数字号，文档末尾插入段落标志，尾注引用号后加入普通数字号，转换为带圈字符Forj=1ToEndNoSetEndNt=(j),有的学校要求尾注号使用带圈数，保持具有正常功能的普通数字编号尾注的文档

写毕业论文时，需要使用word文献标注引用的尾注功能，有的学校要求尾注号使用带圈数。但尾注带圈数字的自动编号只支持到10，超过10后，编号自动变为正常数字编号。然而，尾注带圈数字的自动编号只支持到10。超过10后，编号自动变为正常数字编号。如果尾注超过10怎么办？为什么学校有这样的异常要求，为什么？word这么蠢！

之前的视频《Word写论文必会：尾注20以上带圈数字号介绍了插入自定义标记的方法。但这种方法有明显的缺点，操作步骤更多，失去了编号自动调的功能，字体也可能出现问题。

为了更好地解决这个问题，我写了一个VBA代码。

代码的使用场景是：在早期阶段使用普通数字编号，以保持编号的自动调整功能，并在文档结尾注释连续编号。在论文的最终版本中，操作代码将编号转换为带圈数字

。代码的想法是将尾注转换为普通文本，然后添加带圈数字编号。这个带圈数字是word制作带圈字符功能。

该方法还使尾注失去了自动调整的功能，因此请在转换前备份文档，并保持具有正常功能的普通数字号的尾注文档，建议在论文最终版本中进行转换。

代码如下：

尾注数字编号转换为带圈数字()尾注为普通数字编号，在文档结尾，并在原文档中修改连续编号，可保持原文档格式不变。将尾注号及其格式保持不变，转换为带圈数字号Dim

EndNtAsEndnote,iAsLong,jAsLongDimEndRngAsRange,EndRngLongAsLong,

EndNoAsLongDimRngAsRange,refRangAsRange判断尾注选项设置是否在文档结尾连续编号With

tionsIfNot(.NumberingRule=wdRestartContinuousAnd.Location=

wdEndOfDocument)ThenMsgBox"请将尾注选项设置为文档结尾的连续编号，否则，不适合使用本程序"ExitSubEnd

IfEndWith先转为普通文本，添加带圈数字号i=1EndNo=EndNo>0ThenagraphAfter

在文档末尾插入一个段落标志Forj=1ToEndNoSetEndNt=(j)

SetrefRang=WithrefRang.InsertAfteri在正文区尾注引用标记后加入普通数字的编号.SetRange

Start:=.Start 1,End:=.End'重定义range到新编号.Style=wdStyleEndnoteReference

将新编号的样式设置为尾注引用.ModifyEnclosureStyle:=wdEncloseStyleSmall,

symbol:=wdEnclosureCircle将新编号转换为带圈字符EndWithSetEndRng=尾注文本，不包括以前的尾注引用编号

EndRngLong=Len(EndRng)WithEndRng.InsertBeforei新插入的文本也自动添加到endRng中

.SetRangeStart:=.Start,End:=.End-EndRngLong'重定义range到新编号'.Style=

wdStyleEndnoteReference将新编号的样式设置为尾注引用.ModifyEnclosure

Style:=wdEncloseStyleSmall,symbol:=wdEnclosureCircle将新编号转换为带圈字符.SetRange

Start:=.Start,End:=.Paragraphs(1).'重定义range为尾注文本.CopyEndWith文档末尾粘贴尾注文本

SetRng=direction:=wdCollapseEndi=i 1NextjEndIf删除全文档尾注ForEach

EndNtIntEndSub

关于尾注，你还有什么问题？

电子书Word排版技术大全作者宋翔会员专属47元.40去查看?

电子书Word排版技术大全作者宋翔会员专属47元.40去看盐选会员享受盐选专栏。Live、电子书等海量会员内容新用户9

毕业证书上有哪些字体，学校要求毕业论文的尾注号要用带圈数！主要内容已经完成！