WORDのファイル名とページを指定してその場所を開くマクロ(VBA,WSH)を教えてください。

パラメータはコマンドで指定すると仮定して作ってみました。

●起動

cscript Jump.vbs c:\hogehoge\テスト.doc 3

Jump.vbsの内容

Option Explicit

Const wdGoToPage = 1
Const wdGoToNext = 2

Dim objShell, objWord, objDoc, objSelection, dummy
Dim strFileName, strPage, temp

Set objShell = WScript.CreateObject("WScript.Shell")
Set objWord = CreateObject("Word.Application")
objWord.Visible = True

' 引数取り出しとファイルのオープン
strFileName = WScript.Arguments(0)
strPage = WScript.Arguments(1)
Set objDoc = objWord.Documents.Open(strFileName)
Set objSelection = objWord.Selection

' ここが本題のところ
Set dummy = objSelection.GoTo(wdGoToPage, wdGoToNext, , strPage)

' フォーカスをWordへ移す
temp = split(strFileName, "\",-1)
objShell.AppActivate(temp(UBound(temp)) ＆ " - Microsoft Word")

'後始末
Set objSelection = Nothing
Set objDoc = Nothing
Set objWord = Nothing
Set objShell = Nothing

ファイル名は絶対パスにしているので、必要により変更ください。

また、画面から読み込みたいときにもInputBoxなどで変更ください。

＆(全角)は&(半角)で置き換えをお願いします（はてな改修中）。

http://www.atmarkit.co.jp/fwin2k/operation/wsh01/wsh01_01.html