1、判断文件夹是否存在，将光标移至文档起点，设置循环次数。取得该页的第一个字符位置。
2、将光标移动到该页首行的最后位置，如果循环到达最后一页将文档最后位置赋值于EndRange。
3、否则,将下一页的起始位置赋值于EndRange(等同于本页的最后位置)。将本页中的内容进行复制。
4、新建一空白文档，在文档开始处粘贴，保存文档名关闭文档。有标记的话，是比较容易解决的。
5、修改这个地方就是存放文件的地方，择存放word文档的文件夹，并将路径存放于myPath变量。
6、双击资源管理器中的ThisWorkBook,这时在右侧出现代码编写窗口，在编写窗口中左边下拉框,选择WorkBook,再在右边下拉框选择BeforeClose。
