vbscriptでWordのヘッダーを変更

質問

vbscriptでWordのヘッダーを変更したく、下記のコーディングをしましたが、ヘッダーの変更ができません。
（本文に"1111"が記載されてしまいます。）
どこが違うか教えて頂けませんでしょうか？
vbscriptでWordをコーディングするのは初めてです。
よろしくお願いします。

Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Open ("C:\test\test.doc")

objDoc.ActiveWindow.ActivePane.View.SeekView=wdSeekCurrentPageHeader
objWord.Selection.ParagraphFormat.Alignment=wdAlignParagraphRight
objWord.Selection.Text="1111"
objDoc.ActiveWindow.ActivePane.View.SeekView=wdSeekMainDocument
objWord.ActiveDocument.PrintOut
objWord.ActiveDocument.Close (True)
objWord.Quit

回答No.1

dsuekichi · ベストアンサー

> vbscriptでWordをコーディングするのは初めてです。

念の為確認ですが・・・

各定数（wdSeekCurrentPageHeaderやwdAlignParagraphRight）は、宣言してますか？

VBScriptは、参照設定できませんから、定数の宣言は取り込めません。
自分で「Constステートメント」で宣言する必要がありますけど・・・

＃値は、WordVBAのオブジェクトブラウザで確認できます。

お礼

dsuekichiさん

Const wdSeekCurrentPageHeader=9
Const wdAlignParagraphRight=2

で宣言したら、うまくいきました。
ありがとうございました。