Returns the Selection object that represents a selected range or the insertion point. Read-only.
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