Information Property Example

This example displays the current page number and the total number of pages in the active document.

MsgBox "The selection is on page " & _
    Selection.Information(wdActiveEndPageNumber) & " of page " _
    & Selection.Information(wdNumberOfPagesInDocument)

If the selection is in a table, this example selects the table.

If Selection.Information(wdWithInTable) Then _
    Selection.Tables(1).Select

This example displays a message that indicates the current section number.

Selection.Collapse Direction:=wdCollapseStart
MsgBox "The insertion point is in section " & _
    Selection.Information(wdActiveEndSectionNumber)