vs2005 注释宏

1。 描述函数功能的注释宏：

    Sub FuncDescription()
        Dim objSel As TextSelection
        objSel = DTE.ActiveDocument.Selection
        If objSel.IsEmpty Then
            Exit Sub
        End If

        Dim str As String
        str = objSel.Text
        str = str.Trim()

        Dim strRet, strName, strParams() As String
        Dim strTempParams, strTempName As String
        Dim nPos As Integer
        nPos = str.IndexOf("(")
        strTempParams = str.Substring(nPos) '参数列表

        '返回值、函数名称
        strTempName = str
        strTempName = strTempName.Remove(nPos, strTempName.Length - nPos)
        nPos = strTempName.IndexOf(" ")
        strName = strTempName.Substring(nPos)
        strName = strName.Trim()
        strRet = strTempName.Remove(nPos, strTempName.Length - nPos)
        strRet = strRet.Trim()

        objSel.LineUp()
        objSel.Text = "//函 数 名： " + strName
        objSel.NewLine()
        objSel.Text = "//函数说明： "
        objSel.NewLine()
        objSel.Text = "//返 回 值： " + strRet

        '参数
        strTempParams = strTempParams.Remove(0, 1)
        strTempParams = strTempParams.Remove(strTempParams.Length - 1, 1)

        nPos = strTempParams.IndexOf(",")
        While nPos > 0
            Dim strTemp As String
            strTemp = strTempParams
            strTempParams = strTempParams.Substring(nPos)
            strTemp = strTemp.Remove(nPos, strTempParams.Length)
            objSel.NewLine()
            strTemp = strTemp.Trim()
            objSel.Text = "//参    数： " + strTemp
            strTempParams = strTempParams.Trim()
            strTempParams = strTempParams.Remove(0, 1)
            nPos = strTempParams.IndexOf(",")
        End While
        strTempParams = strTempParams.Trim()
        objSel.NewLine()
        objSel.Text = "//参    数： " + strTempParams
        objSel.NewLine()
        objSel.Text = "//作    者： lhw"
        objSel.NewLine()
        objSel.Text = "//日    期： " + CStr(Now())
    End Sub

2。新建文件，对此文件添加一些注释信息，文件注释宏如下：

    Sub FileDescription()
        Dim doc As Document
        doc = DTE.ActiveDocument
        Dim strFileName As String
        strFileName = doc.Name
        Dim objSel As TextSelection
        objSel = DTE.ActiveDocument.Selection
        objSel.StartOfDocument()
        objSel.NewLine()
        objSel.Text = "//**************************************************"
        objSel.NewLine()
        objSel.Text = "//版权说明 Contect CopyRight(c)"   '此处可添加公司名称
        objSel.NewLine()
        objSel.Text = "//文 件 名： " + strFileName
        objSel.NewLine()
        objSel.Text = "//文件描述： "
        objSel.NewLine()
        objSel.Text = "//作    者： lhw"
        objSel.NewLine()
        objSel.Text = "//创建日期： " + CStr(Now())
        objSel.NewLine()
        objSel.Text = "//**************************************************"
    End Sub