[已解决]求助高手把替换word页眉的vba转换成au3代码

king8462

VBA如下：
Sub cs()
Set myRange = ActiveDocument.Sections(1).Headers(2).Range
myRange.Find.Execute findtext:="1zyhao", replacewith:="2016", Replace:=wdReplaceAll
End Sub

king8462

自己解决了，代码如下：

#include <Word.au3>
Global $word = ObjCreate("word.application")
$word.visible = True
$Doc =  $Word.documents.open (@DesktopDir & "\0001.doc")
Local $context = "1zyhao"
Local $newcontext = "2016"
$Doc.PageSetup.HeaderDistance
$Word.ActiveWindow.ActivePane.View.SeekView = 2
Sleep(100)
With $doc.Application.Selection.range.Find
.ClearFormatting ()
.Replacement.ClearFormatting ()
.Execute($context,0,0,0,0,0,1,1,0,$newcontext,2)
EndWith

pigWoWo

大神，
不行啊，只能替换内容，不能替换 页眉 呀

king8462

回复 3# pigWoWo

修改下这行代码
    $Word.ActiveWindow.ActivePane.View.SeekView = 1

king8462

回复 3# pigWoWo

如果替换页脚，修改7、8行代码如下：
$Doc.PageSetup.footerDistance
$Word.ActiveWindow.ActivePane.View.SeekView = 10

pigWoWo

可以了 ，膜拜