Can't think of a good class name? Try this: (opens in new tab)

Imports System Imports EnvDTE Imports EnvDTE80 Imports EnvDTE90 Imports EnvDTE90a Imports EnvDTE100 Imports System.Diagnostics

Public Module Module1

    Sub ClassNameGen()
        Dim res As String
        Dim req As System.Net.WebRequest = System.Net.HttpWebRequest.Create("http://www.classnamer.com/")
        Dim rsp = req.GetResponse()
        Using sr As New System.IO.StreamReader(rsp.GetResponseStream())
            res = sr.ReadToEnd()
        End Using

        Dim doc As Document = DTE.ActiveDocument
        Dim textDoc As TextDocument = CType(doc.Object("TextDocument"), TextDocument)
        textDoc.StartPoint.CreateEditPoint()

        Dim strstr As String = "<p id=""classname"">"
        Dim endstr As String = "</p>"
        Dim strt As Integer = res.IndexOf(strstr)
        textDoc.Selection.Insert(res.Substring(strt + strstr.Length, res.Length - (res.IndexOf(endstr, strt) + endstr.Length)))
    End Sub
    

If so you're onto a winner.

I like this one :-)

Think about it.

It a Big 5 consulting firm acquired this and used it in their enterprise web app practice, would anyone ever be able to tell the difference?