如何给word 文章的每段段尾添加 脚注

新建一个宏，其代码如下

Sub 段尾加脚注()
'
' 段尾加脚注 宏
'
'ActiveDocument.Paragraphs.Count返回文档的段落数
' 定义一个整形变量numpara，来存储段数
  Dim numpara As Integer
  numpara = ActiveDocument.Paragraphs.Count

'用循环遍历每段，然后添加能自动编号的脚注
For counter = 1 To numpara

  ActiveDocument.Footnotes.Add Range:=ActiveDocument.Paragraphs(counter).Range, _
   text:="The Willow Tree, (Lone Creek Press, 1996)."
Next counter

End Sub

效果如图

如果你要在每段的句号或者断尾的其他符号前添加脚注，就修改一下宏，如下

Sub 段尾加脚注()
'
' 段尾加脚注 宏
'

  Dim numpara As Integer
  numpara = ActiveDocument.Paragraphs.Count

'代码添加部分：设定一个范围，注意ActiveDocument.Paragraphs(counter).Range.End - 2
'End-2是把范围减少了一2个字节，因为汉字编码占两个字节

For counter = 1 To numpara
  Set myRange = ActiveDocument.Range( _
  Start:=ActiveDocument.Paragraphs(counter).Range.Start, _
   End:=(ActiveDocument.Paragraphs(counter).Range.End - 2))

  ActiveDocument.Footnotes.Add Range:=myRange, _
   text:="The Willow Tree, (Lone Creek Press, 1996)."
Next counter

End Sub

效果如图

看到前后两张图的区别了么，代码里myRange的范围还可以做一下修改，以把脚注加在任何你想要的地方。

对了，截图文章是《百年孤独》的开头。

版权声明：本文为博主原创文章，未经博主允许不得转载。