TextSelection::SelectAll Method ()

Sub SelectAllExample()
   ' Before running this example, open a text document.
   Dim objSel As TextSelection = DTE.ActiveDocument.Selection
   ' Go to first line in document and select it.
   objSel.GotoLine(1, True)
   objSel.SelectAll()
End Sub