If Selection.Information(wdInFootnote) = True' The selection is in a footnote
If Selection.Information(wdInEndnote) = True' The selection is in a endnote
If Selection.Information(wdInFootnoteEndnotePane) = True' The selection is in a endnote or a footnote
If Selection.Information(wdNoSelection) = True' There is no selection -- alternatively -- could check "If Selection.Start = Selection.End Then . . . " to see if text selected.
If Selection.Information(wdSelectionIP) = True' The selection is a plain insertion point -- nothing is selected
If Selection.Information(wdSelectionShape) = True' The shape object is selected (note: a textbox counts as a shape object)
If Selection.Information(wdCapsLock) = True' The Caps Lock is on
If Selection.Information(wdNumLock) = True' The Nums Lock is on
If Selection.Information(wdOverType) = True' The Overtype mode is on (i.e., Insert mode is off)
ZoomPercent = Selection.Information(wdZoomPercentage)' The current zoom percentage (this is numeric)
MyTemp = Selection.Information(wdSelectionMode)' 0 if normal; 1 if extended selection; 2 if column selected.
MyTemp = Selection.Information(wdFirstCharacterLineNumber)
CurrentPage = Selection.Information(wdActiveEndPageNumber)' The page number containing the active end of the selection
MaxPages = Selection.Information(wdNumberOfPagesInDocument)' The number of pages in the document in which selection appears.
' ************* Specifically dealing with Tables (below) ******************
If Selection.Information(wdWithInTable) = True' The selection is in a table
If Selection.Information(wdSelectionRow) = True' A full row in a table is selected
If Selection.Information(wdAtEndOfRowMarker) = True' True if the selection or range is at the end-of-row marker in a table (not the end-of-cell marker)
If Selection.Information(wdSelectionColumn) = True' A column or part of a column (two or more cells in a column, or one cell in each of two or more columns) is selected.
CurrentColumn = Selection.Information(wdStartOfRangeColumnNumber)' The number of the table column containing the beginning of the selection
CurrentRow = Selection.Information(wdStartOfRangeRowNumber)' The number of the table row containing the beginning of the selection.
CurrentCellWidth = Selection.Cells.Width' The width (in twips) of current cell
MyTemp = Selection.Information(wdFirstCharacterColumnNumber)' Number of the column at which the first character occurs
CurrentTable = Selection.Information(wdEndOfRangeColumnNumber)' The number of the table column containing the end of the selection
MaxRows = Selection.Information(wdMaximumNumberOfRows)' The largest number of table rows in the table (in the selection or range)
MaxColumns = Selection.Information(wdMaximumNumberOfColumns)' The largest number of table columns in the table (in the selection or range)