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

新建一个宏，其代码如下

Sub 段尾加脚注()
'
' 段尾加脚注 宏
'
'ActiveDocument.Paragraphs.Count返回文档的段落数
' 定义一个整形变量numpara，来存储段数Dim numpara As Integernumpara = ActiveDocument.Paragraphs.Count'用循环遍历每段，然后添加能自动编号的脚注
For counter = 1 To numparaActiveDocument.Footnotes.Add Range:=ActiveDocument.Paragraphs(counter).Range, _text:="The Willow Tree, (Lone Creek Press, 1996)."
Next counterEnd Sub

效果如图

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

Sub 段尾加脚注()
'
' 段尾加脚注 宏
'Dim numpara As Integernumpara = ActiveDocument.Paragraphs.Count'代码添加部分：设定一个范围，注意ActiveDocument.Paragraphs(counter).Range.End - 2
'End-2是把范围减少了一2个字节，因为汉字编码占两个字节For counter = 1 To numparaSet 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 counterEnd Sub

效果如图

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

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

转载于:https://www.cnblogs.com/Rex7/p/4752594.html

如何给word 文章的每段段尾添加脚注相关推荐

使用python中的Selenium爬取百度文库word文章
参考文章:Python3网络爬虫(九):使用Selenium爬取百度文库word文章,链接为: https://blog.csdn.net/c406495762/article/details/723 ...
Word 为标题设置段前段后间距设置与异常
Word 为标题设置段前段后间距设置与异常参考文章: (1)Word 为标题设置段前段后间距设置与异常 (2)https://www.cnblogs.com/neillee/p/7001891.ht ...
word2016能识别linux换行符,word文章中的换行符如何批量替换为回车符
word文件中有换行符很正常,但是想要将换行符全部替换为回车符,该怎么替换?以下是学习啦小编为您带来的关于word文章中的换行符批量替换为回车符,希望对您有所帮助. word文章中的换行符批量替换为回 ...
如何在word中删除一段文字的所有空格
如何在word中删除一段文字的所有空格选中一段话, 按下"ctrl+H"键调出替换对话框然后在第一个栏中输入一个"空格",第二栏中什么都不输入. 然后点击窗 ...
利用VBA建立基金或者股票的实时净值和日线或者周线图并一键生成word文章
本人使用的是office 2016,其他可以参考该步骤进行即可 [完整项目工程:https://download.csdn.net/download/baobingji/85177201] 步骤1:新 ...
利用Word随机生成一段文字
Word是大家都会用的办公软件,在前端开发中,我们也常常需要一些文字来做填充. 如果手动打这些文字的话,未免过于繁琐和不雅观,所以在这里分享一个利用Word随机生成一段文字的方法: 打开Word,输入 ...
php给文章关键词加内链,WordPress文章关键词如何实现自动添加内链方法？
我们在编写文章的时候需要给关键词添加内链,从而有助于SEO优化,如果一个一个手动添加就会很麻烦,那么WordPress文章关键词如何实现自动添加内链方法? 在主题根目录下的functions.php文 ...
html5中英文间自动空格,WordPress 文章中英文数字间自动添加空格代码
摘要今天分享给大家的这个"WordPress 文章中英文数字间自动添加空格"代码,明月感觉是目前网上分享的最简单.最稳定方法了,至少明月已经使用了近半个月了,非常的稳定,效果也很 ...
office 论文页码_八个步骤教你用Word写论文从任意页添加页码
原标题:八个步骤教你用Word写论文从任意页添加页码大家不论是在完成平时论文作业还是在完成学术严谨的毕业论文的时候,刚开始着手写作的时候可能会忽略页码的问题,但是当文章字数越来越多页码原来越多的时候 ...

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

如何给word 文章的每段段尾添加脚注相关推荐

最新文章

热门文章

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

如何给word 文章的每段段尾添加 脚注相关推荐

最新文章

热门文章

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

如何给word 文章的每段段尾添加脚注相关推荐