Selection Property
Returns the Selection object that represents a selected range or the insertion point. Read-only.
Example
This example displays the selected text.
If Selection.Type = wdSelectionNormal Then MsgBox Selection.Text
This example copies the selection from window one to the next window.
If Windows.Count >= 2 Then
Windows(1).Selection.Copy
Windows(1).Next.Activate
Selection.Paste
End If
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