将注释批量转为脚注
- 2015/10/20 15:15:25
- 类型:原创
- 来源:电脑报
- 报纸编辑:电脑报
- 作者:琴心剑胆
【电脑报在线】一些商业文件中使用了“【】”来进行文字注释,这样阅读不连贯,需要将注释放到页脚处变成脚注。如果只有一两处可以手动修改,如果多了怎么办?
一些商业文件中使用了“【】”来进行文字注释,这样阅读不连贯,需要将注释放到页脚处变成脚注。如果只有一两处可以手动修改,如果多了怎么办?可以设计一个专门的转换宏代码。按组合键“Alt+F11”,打开Microsoft Visual Basic编辑器窗口,点击“插入→模块”,输入代码即可,关键代码如下:
Dim myRange As Range, NtRange As Range,strNT As String
Application.ScreenUpdating = False
Set myRange = ActiveDocument.Content
NF: With myRange.Find
.Text = "【*】"
.MatchWildcards = True
Do While .Execute = True
Set NtRange =ActiveDocument.Range(myRange.Start, myRange.Start)
strNT = myRange.Text
myRange.Delete
ActiveDocument.Footnotes.AddNtRange, , strNT
myRange.SetRange myRange.End,ActiveDocument.Content.End - 1
GoTo NF
董师傅点评:这个技巧在论文写作中也可以用到,特别是参考网上下载的论文资料时。
本文出自2015-10-19出版的《电脑报》2015年第41期 C.笔记本电脑
(网站编辑:ChengJY)
读者活动
48小时点击排行
编辑推荐
论坛热帖
网站地图 | 版权声明 | 业务合作 | 友情链接 | 关于我们 | 招聘信息
报纸客服电话:4006677866 报纸客服信箱:pcw-advice@vip.sina.com 友情链接与合作:987349267(QQ) 广告与活动:675009(QQ) 网站联系信箱:cpcw@cpcwi.com
Copyright © 2006-2011 电脑报官方网站 版权所有 渝ICP备10009040号
报纸客服电话:4006677866 报纸客服信箱:pcw-advice@vip.sina.com 友情链接与合作:987349267(QQ) 广告与活动:675009(QQ) 网站联系信箱:cpcw@cpcwi.com
Copyright © 2006-2011 电脑报官方网站 版权所有 渝ICP备10009040号