求个为高手帮看下这段代码VBA 脚注

这段代码插运行后 正文在插入脚注后脚注标签后边如果在输入文本的话。字体就变为了脚注的字体并且成为了上标。
麻烦高手帮我看下。小弟我初学VB。改了一整天了，一直不明所以，感觉好像是分段出问题了。求各位大哥帮忙解惑！
Sub JiaoZhu()
Set JiaoZhuZDY = Selection.Range '定义脚注域
 With ActiveDocument.Range(Start:=ActiveDocument.Content.Start, End:= _
  ActiveDocument.Content.End)
 With .FootnoteOptions
  .Location = wdBottomOfPage
  .NumberingRule = wdRestartContinuous
  .StartingNumber = 1
  .NumberStyle = wdNoteNumberStyleArabic
  .NumberingRule = wdRestartSection
End With
 .Footnotes.Add Range:=Selection.Range, Reference:=""
End With
JiaoZhuZDY.MoveEnd Unit:=wdWord, Count:=1
JiaoZhuZDY.InsertAfter (")") '添加半圆括号
JiaoZhuZDY.Font.Superscript = True '字体上标
With Selection '脚注设置
.Paragraphs(1).Range.Font.Superscript = wdToggle
.Paragraphs(1).Range.Style = ActiveDocument.Styles("脚注文本")
.Paragraphs(1).Range.Characters(1).InsertAfter (")")
End With
end sub

没人么？自己顶下先。