解决参考文献的数字中括号问题

撰写一个文档的时候需要进行参考文献的引用。word中这个东西没有很好的支持。昨日收藏的文章解决了部分这个问题，但是其中提到的转换尾注参考文献列表为标签后粘贴的方法我感觉不是很方便。自己在转换参考文献的数字格式时编制了一个VBA程序来解决这个问题。运行了一下感觉甚为方便。至此word中的参考文献问题得到了彻底的解决，以后写论文可以舒畅的使用word了。con 一下：）

附：代码说明如下

Attribute VB_Name = "NewMacros"
Sub 参考文献尾注行首数字加中括号()
Attribute 参考文献尾注行首数字加中括号.VB_Description = "宏在 2005-5-7 由 bill_lang 编制"
Attribute 参考文献尾注行首数字加中括号.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.参考文献尾注行首数字加中括号"
'
' 参考文献尾注行首数字加中括号 Macro
' 宏在 2005-5-7 由 bill_lang 编制
输入选中的多行
1 Tom M.Mitchell著，曾华军 张银奎等译. Machine Learning.北京：机械工业出版社，2003年：52~75
2 E B Hunt, J Marin, P J Stone. Experiments in induction[M]. New York: Wiley, 1966
3 J R Quinlan. Induction of Decision Trees[J]. Machine Learning, 1986(1):81~106
4 Quinlan, J.R. C4.5: Programs for Machine Learning. San Mateo, CA: Morgan Kaufmann Publishers, Inc,1993.
5 Data Mining Tools See5 and C5.0，http://www.rulequest.com/see5-info.html
输出
[1] Tom M.Mitchell著，曾华军 张银奎等译. Machine Learning.北京：机械工业出版社，2003年：52~75
[2] E B Hunt, J Marin, P J Stone. Experiments in induction[M]. New York: Wiley, 1966
[3] J R Quinlan. Induction of Decision Trees[J]. Machine Learning, 1986(1):81~106
[4] Quinlan, J.R. C4.5: Programs for Machine Learning. San Mateo, CA: Morgan Kaufmann Publishers, Inc,1993.
[5] Data Mining Tools See5 and C5.0，http://www.rulequest.com/see5-info.html