2问题：VBA实现页眉页脚文字替换和VBA实现WORD内的EXCEL图表的数据修改

[xiaoyehua]

虽然去了EH论坛寻求帮助，不过都是用WORD里的VBA语言给的代码，反反复复的测试了好多次都无果，最后希望来这里求助了
2个问题，只求高人帮助写出关键那句属性的代码即可。
1、VBA实现页眉页脚文字替换

2、WORD内的EXCEL图表的数据修改
在WORD里增加一个EXCEL图表，图形更具EXCEL图表内的工作表的数据生成。所以要求能修改工作表理的数据。

[xiaoyehua]

要过1天才能加100分，上次已经有个高人帮忙解决问题了，再次希望奇迹出现。谢谢了。

[winter0991]

up

[newease]

替换页眉
ole_1.object.application.ActiveWindow.ActivePane.View.SeekView = 9
ole_1.object.application.Selection.find.Execute("{姓名}",false,true,false,false,false,true,1,true,"王五",2)
ole_1.object.application.ActiveWindow.ActivePane.View.SeekView = 0

[newease]

ole_1.object.application.ActiveWindow.ActivePane.View.SeekView = 10
ole_1.object.application.Selection.find.Execute("{姓名}",false,true,false,false,false,true,1,true,"王五",2)
ole_1.object.application.ActiveWindow.ActivePane.View.SeekView = 0

[newease]

替换页脚
ole_1.object.application.ActiveWindow.ActivePane.View.SeekView = 10
ole_1.object.application.Selection.find.Execute("{姓名}",false,true,false,false,false,true,1,true,"王五",2)
ole_1.object.application.ActiveWindow.ActivePane.View.SeekView = 0

[newease]

给楼主一段全的代码

integer li_FileNum
OLEObject myword
myword = Create oleObject
li_FileNum = myword.connecttonewobject("word.Application")
if li_FileNum < 0 then
messagebox("错误","不能启动Word!")
else
myword.visible = true

myword.documents.open("c:\a.doc")

myword.application.ActiveWindow.ActivePane.View.SeekView = 9
myword.application.Selection.find.Execute("页眉设置",false,true,false,false,false,true,1,true,"王五",2)
myword.application.ActiveWindow.ActivePane.View.SeekView = 0




end if

DESTROY myword

[woshilitao5]

頂！

[xiaoyehua]

NB！下班之前解决一个问题。非常感谢