| |
下記のマクロを試して下さい。ヘルプの使用例です。
詳しいことは、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
|
|
![[未読]](./data/word/image/read_icon.gif){kind=icon}
