先在excel中生成一个数字的序列,然后复制到word中,保留无格式文本,^p替换为^m,每页一个数字,然后用vba代码切割成每页一个文档。vba代码如下:http://blog.sina.com.cn/s/blog_60e52249010194z5.html