かつて作成した「特定ページを表示させるマクロ
」がありました。
今確認したら、エラー処理をしなくても実現できると思いまして改造しました。
▼できること
入力した数字のページにカーソルを移動します。
ページのジャンプと同じですね。
▼マクロ解説
今回のマクロでは、InputBoxに入力された文字が数字でなければ、ひたすら文字の入力をさせる方法にしました。
前回のマクロでは、数字以外の文字を入れた場合に、Selection.Gotoの構文でエラーが生じていましたが、今回はこれを事前に回避できます。
▼構文
IsNumeric(myPage) = False
これは、「myPageに入っている文字が数字ではない」という意味です。
▼マクロ
Sub 特定ページへ飛ぶ()
Dim myPage As Variant '移動先のページを入れる変数
Dim myMessage As String 'メッセージ
Dim myTitle As String 'タイトル
myTitle = "ページの移動"
myMessage = "移動先のページを入力して下さい。"
Do
myPage = InputBox(myMessage, myTitle, 5)
If myPage = vbNullString Then End
Loop While IsNumeric(myPage) = False
Selection.GoTo What:=wdGoToPage, Which:=wdGoToFirst, Count:=myPage
End Sub
▼関連ページ
特定ページを表示させるマクロ
マクロコードの登録方法
ツールバーのボタン登録