51Testing软件测试论坛

标题: 如何使用VBS对word的页眉页脚进行操作？ [打印本页]

作者: xiaoyaoke 时间: 2007-11-26 14:22
标题: 如何使用VBS对word的页眉页脚进行操作？
想用VBS完成如下流程：
生成word文档--〉生成页眉页脚--〉对页眉页脚进行内容修改--〉保存word文档--〉关闭word文档--〉删除word文档
请问中间的“生成页眉页脚”和“对页眉页脚进行内容修改”该如何完成呢？
谢谢了

作者: xiaoyaoke 时间: 2007-11-26 16:20
自己顶起
比较急
希望有相关经验的大哥帮帮忙

作者: jackymail 时间: 2007-11-26 18:04
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 时间: 2007-11-26 18:53
谢谢jackmail大哥，以后当你小弟了
呵呵
已经成功解决了
多谢大哥指点

作者: walker1020 时间: 2007-11-26 20:47
真没想到 QTP 连 Word 的 “生成页眉页脚” 功能都可以测试，谢谢jackmail!

作者: yuandjing 时间: 2007-11-27 11:40
又见高人，看来我对VBS掌握还不精，受教了

作者: cdq1010 时间: 2007-11-27 12:52
真强，佩服！

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)