今天同事问我要把30多页的数据中，每隔四行的英文内容提取出来的方法。毋庸置疑，这种批量处理的任务第一时间就想到用宏了。但录制的宏只能单步执行，不能批量执行直至文档结束。以为宏是专门批量处理的工具，应该有选项设置可以进行设置，但百查不得其果。后来想起ExcelHome的宏教学视频中有这个案例，一看了然：直接定义个变量，循环1000次。http://www/uc/myshow/blog/misc/gif/E___7392ZH00SIGG.gif

操作方法：

1. 先将单个步骤的宏录制完毕，并测试准确。

如这个案例中要把英文提取出，即先删除1，2两行，再跳一行删除空白行，最后定位至数字 2 前面，宏录制完成了，因为接下去的步骤和之前完全相同，可以重复执行。

录制前：

http://s15/middle/5f3c9dd3gb962abc4c9ae&690 

录制后：

http://s7/middle/5f3c9dd3gb962bb49ae06&690
注意：Word中录制宏时不能操作鼠标，只能用键盘操作。所以用shift+end键选择一行，删除。

2. 完成之后用Visual 编辑器打开代码，加入下面的循环语句。任务就完成了。

Sub 宏5()
'
' 宏5 宏
'
'
    Dim k As Long
    For k = 1 To 4000
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.MoveDown Unit:=wdLine, Count:=2
    Next

End Sub