如何在Excel中用VBA引用Word liberary Object

通常情况下，在Excel中引用Word 14 object Libary 就可以对Word进行相关操作了。但从高版本的excel到低版本时容易丢失Word 14 Liberary  object（如excel2010到excel2007时）。是否可以不用引用Word 14 object Libary，而直接通过VBA来引用word liberary object 从而易于对word进行操作。例如设定word文档的页眉页脚。如设定页眉为（"No.文件名 Date：日期（格式为mmm. dd, yyyy) Page *（第几页） of page **（总页数）"). 谢谢！

最终效果的PDF文件就是要用excel表JA111112通过Word形成的格式和样式。
excel表JA111111引用了office 2010 中的Word 14 liberty Object，但在Office2007中容易丢失。需解决。

而excel表JA111112不引用Word 14 liberary Object，但无法形成页眉页脚的修改。而且会直接复制在第二页中，不能复制在第一页中。因为第一页是一节，第二页又是一节。套用的是JA100004的格式。是否可以不用引用Word 14 object Libary，而直接通过VBA来引用word liberary object 从而易于对word进行操作。具体内容可参看附件。提供附件以便修改。
谢谢答复。琢磨近一年多无果。 请高手帮助解决。谢谢！
金澳公司申请单制作问题.rar (181.45 KB)

[ 本帖最后由 njwyt 于 2011-7-6 13:21 编辑 ]

问题1:关于"无法形成页眉页脚的修改"
答: 应将wdApp.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader更改为 wdApp.ActiveWindow.ActivePane.View.SeekView = 9 ,另注意:修改完页眉之后还应用wdApp.ActiveWindow.ActivePane.View.SeekView = 0退出页眉.
建议:不建议使用wdApp.ActiveWindow.ActivePane.View.SeekView 对页眉进行修改,,而应考虑使用Headers

问题2:关于"直接复制在第二页中，不能复制在第一页中"
答:你的模板文件"JA100004.doc"中为什么不删除哪些空段呢?