运用宏程序进行PDF文档拆分重命名存档

zhyicong

资料 《附件一》
附件是  PDF的总表和 拆分后的分表,分表按 （物料：4212-25521 ）中的4212-25521 命名存档
目前因本人工作内容
需要通过程序  对一个汇总的PDF文档做拆分动作。
PDF文档，格式一样，但PDF表格中内容多寡，造成涉及 页数不一样，需要通过一定的逻辑进行识别拆分。
并保留题头 及二维码内容：

因本人是初学自己也写了一个程序，比较混乱，高手见谅
逻辑为：把PDF 转存成WORD 格式。
通过两个VBA 进行组合，先获取 WORD格式 物料：4212-25521  以及对应的页数
然后在对PDF进行分拆和重命名
目前程序在WIN7 系统 OFFICE 07上可以运行。
            但在WIN10  OFFICE10上报错 91：对象变量或with块变量未设置。
方案二因为该工作需要多次互转，影响一定的效率，未来重复性较多。
资料 《附件二》
是小弟的程序
哪位大神能 助小弟一臂之力，协助新设计个程序，
或者帮小弟把程序修改修改。
能 直接对PDF 进行拆分是最好的结局。先感激下大神或路过的高手。