虫虫技术在线--技术决定出路

当前位置: 首页 > 办公 > Word >

用VBA宏提高Word操作效率(11)

时间:2010-06-16 16:00来源:虫虫技术在线收集整理 作者:王志军 点击:
经过研究,发现正文部分和注解部分的字号大小还是有一定区别的,前者采用二号,后者则是四号,这样就可以利用VBA宏代码实现批量转换脚注的任务。按


 

 

   经过研究,发现正文部分和注解部分的字号大小还是有一定区别的,前者采用二号,后者则是四号,这样就可以利用VBA宏代码实现批量转换脚注的任务。按下Alt+F11组合键,打开Microsoft Visual Basic编辑器窗口,依次执行“插入→模块”,在右侧的模块窗格中手工粘贴如下代码,
这里的宏名称可以任意命名:
 

  1. Sub 脚注转换()  
  2. Dim myRange As Range, NtRange As Range, strNT As String 
  3. Application.ScreenUpdating = False 
  4. Set myRange = ActiveDocument.Content  
  5. NF: With myRange.Find  
  6. .ClearFormatting  
  7. .Format = True 
  8. .Font.Size = 14  
  9. Do While .Execute = True 
  10. Set NtRange = ActiveDocument.Range(myRange.Start, myRange.Start)  
  11. strNT = myRange.Text  
  12. myRange.Delete  
  13. ActiveDocument.Footnotes.Add NtRange, , strNT  
  14. myRange.SetRange myRange.End, ActiveDocument.Content.End - 1  
  15. GoTo NF  
  16. Loop 
  17. End With 
  18. Application.ScreenUpdating = True 
  19. End Sub 


 


返回Word界面之后,按下Alt+F8组合键,选中列表框中的“脚注转换”宏,单击右侧的“运行”按钮即可。

(责任编辑:admin)
顶一下
(1)
100%
踩一下
(0)
0%
------分隔线----------------------------
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
表情:
用户名: 验证码:点击我更换图片
栏目列表
推荐内容