求个为高手帮看下这段代码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 --------------------编程问答-------------------- 没人么？自己顶下先。 --------------------编程问答-------------------- 还是么人饿！

补充：VB ,  VBA