Word VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム

422 / 886

←次へ　｜　前へ→


	【476】Re:ページ番号の取得

H. C. Shinopy - 06/7/31(月) 20:09 -


	引用なし

	パスワード

下記のマクロを試して下さい。ヘルプの使用例です。

詳しいことは、VBE画面でInformationにカーソルを置いて、
[F1]キーを押して下さい。「Information プロパティ」についてのヘルプが表示されます。

使用できる定数は、たくさんありますが、
その内の2つは下記の通り：

wdActiveEndAdjustedPageNumber　
指定された選択範囲または指定範囲の終了位置のページ番号を取得します。
開始ページ番号を設定したり、手動で調整したりした場合、
wdActiveEndPageNumber とは異なり、
変更後のページ番号を取得します。

wdActiveEndPageNumber　
指定された選択範囲または指定範囲の終了位置のページ番号を文書の先頭から数えて取得します。
wdActiveEndAdjustedPageNumber とは異なり、
ページ番号を手動で調整した結果は廃棄されます。

Sub pppppp()
　Rem 使用例
　Rem 次の使用例は､作業中の文書の現在のページ番号と総ページ数を表示します｡
　
　MsgBox "選択範囲は、" & _
　　　Selection.Information(wdActiveEndPageNumber) & " ページ目にあります。総ページ数は " _
　　　& Selection.Information(wdNumberOfPagesInDocument) & " ページです。"
　'
　Rem 次の使用例は､現在のセクション番号を示すメッセージを表示します｡
　Selection.Collapse Direction:=wdCollapseStart
　MsgBox "カーソル位置は、セクション " & _
　　　Selection.Information(wdActiveEndSectionNumber) & " にあります。"
End Sub

3,472 hits

▼

【475】ページ番号の取得 Nai 06/7/31(月) 19:20