TextSelection::Untabify Method ()

Sub UnTabifyExample()
   ' Before running this example, open a code document.
   Dim objSel As TextSelection = DTE.ActiveDocument.Selection
   ' Select all code in open document.
   objSel.SelectAll()
   ' Convert spaces in selection to Tab characters.
   objSel.Tabify()
   MsgBox("Converting tabs back to spaces...")
   objSel.Untabify()
End Sub