人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

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

●質問者: garyo
●カテゴリ:コンピュータ
✍キーワード:VBA Word WSH ファイル マクロ
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● airplant
●60ポイント ベストアンサー

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

●起動

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

◎質問者からの返答

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

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ