如何使用VBS对word的页眉页脚进行操作？

xiaoyaoke

想用VBS完成如下流程：
生成word文档--〉生成页眉页脚--〉对页眉页脚进行内容修改--〉保存word文档--〉关闭word文档--〉删除word文档
请问中间的“生成页眉页脚”和“对页眉页脚进行内容修改”该如何完成呢？
谢谢了

xiaoyaoke

自己顶起
比较急
希望有相关经验的大哥帮帮忙

jackymail

Sub Header(sFilePath)
   wdHeaderFooterPrimary=1
   Dim WordApp,ActiveDocument
   Set WordApp = CreateObject("Word.Application")
   WordApp.Visible = True
   Set ActiveDocument = WordApp.Documents.Open(sFilePath)
   With ActiveDocument.Sections(1)
   .Headers(wdHeaderFooterPrimary).Range.Text = "Header text"
   .Footers(wdHeaderFooterPrimary).Range.Text = "Footer text"
   End With
End Sub
我上不去msn乐，刚才告诉你的方法是可以的，你要给wdHeaderFooterPrimary参数赋值，意义是第几页。

xiaoyaoke

谢谢jackmail大哥，以后当你小弟了
呵呵
已经成功解决了
多谢大哥指点

walker1020

真没想到 QTP 连 Word 的 “生成页眉页脚” 功能都可以测试，谢谢jackmail!

yuandjing

又见高人，看来我对VBS掌握还不精，受教了

cdq1010

真强，佩服！