-----------------------------------------------------------
New Message on BDOTNET
-----------------------------------------------------------
From: jshanki
Message 2 in Discussion
This macro will not skip. But will outline the selection.
Sub OutlineSelection()
Dim objTextDoc As TextDocument
Dim title As String = InputBox("Enter the title for the outline",
"Outline code")
objTextDoc = DTE.ActiveDocument.Object("TextDocument")
objTextDoc.Selection.Insert("#region " & title & vbNewLine &
vbNewLine, vsInsertFlags.vsInsertFlagsInsertAtStart)
objTextDoc.Selection.Insert(vbNewLine & "#endregion ",
vsInsertFlags.vsInsertFlagsInsertAtEnd)
objTextDoc.Selection.SmartFormat()
End Sub
With Warm Regards
Shankara Narayanan
****************************************
Impossible only means that you haven't found the solution yet.
****************************************
-----------------------------------------------------------
To stop getting this e-mail, or change how often it arrives, go to your E-mail
Settings.
http://groups.msn.com/BDotNet/_emailsettings.msnw
Need help? If you've forgotten your password, please go to Passport Member Services.
http://groups.msn.com/_passportredir.msnw?ppmprop=help
For other questions or feedback, go to our Contact Us page.
http://groups.msn.com/contact
If you do not want to receive future e-mail from this MSN group, or if you received
this message by mistake, please click the "Remove" link below. On the pre-addressed
e-mail message that opens, simply click "Send". Your e-mail address will be deleted
from this group's mailing list.
mailto:[EMAIL PROTECTED]
