Application.Selection Property (Word)
Returns the Selection object that represents a selected range or the insertion point. Read-only.
expression A variable that represents an 'Application' object.
This example displays the selected text.
If Selection.Type = wdSelectionNormal Then MsgBox Selection.Text
This example applies the Arial font and bold formatting to the selection.
With Selection.Font .Bold = True .Italic = False .Name = "Arial" End With
If the insertion point isn't located in a table, the selection is moved to the next table.
If Selection.Information(wdWithInTable) = False Then Selection.GoToNext What:=wdGoToTable End If