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

回答の条件
  • URL必須
  • 1人5回まで
  • 登録:2007/11/15 07:21:51
  • 終了:2007/11/17 23:09:34

ベストアンサー

id:airplant No.1

airplant回答回数220ベストアンサー獲得回数492007/11/16 03:03:20

ポイント60pt

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

●起動

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

id:garyo

ありがとうございます。助かります。

2007/11/17 23:09:07

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません