Selection Property 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