VS2005 文件和函数的快捷 宏定义

Public Module Author
    Sub AddFileCreate()
        Dim DocSel As EnvDTE.TextSelection
        DocSel = DTE.ActiveDocument.Selection
        DocSel.NewLine()
        DocSel.Text = "/*******************************************************************"
        DocSel.NewLine()
        DocSel.Text = "* 功    能： "
        DocSel.NewLine()
        DocSel.Text = "* 文件名称： "
        DocSel.NewLine()
        DocSel.Text = "* 作    者： ZG"
        DocSel.NewLine()
        DocSel.Text = "* 创建日期： " + System.DateTime.Now.ToLongDateString()
        DocSel.NewLine()
        DocSel.Text = "*******************************************************************/"
    End Sub

    Sub AddFunCreate()
        Dim DocSel As EnvDTE.TextSelection
        DocSel = DTE.ActiveDocument.Selection
        DocSel.NewLine()
        DocSel.Text = "/*******************************************************************"
        DocSel.NewLine()
        DocSel.Text = "* 函数名称： "
        DocSel.NewLine()
        DocSel.Text = "* 功    能： "
        DocSel.NewLine()
        DocSel.Text = "* 参    数： "
        DocSel.NewLine()
        DocSel.Text = "* 返 回 值： "
        DocSel.NewLine()
        DocSel.Text = "* 作    者： ZG"
        DocSel.NewLine()
        DocSel.Text = "* 创建日期： " + System.DateTime.Now.ToLongDateString()
        DocSel.NewLine()
        DocSel.Text = "*******************************************************************/"
    End Sub

    Sub AddFileVer()
        Dim DocSel As EnvDTE.TextSelection
        DocSel = DTE.ActiveDocument.Selection
        DocSel.NewLine()
        DocSel.Text = "/*******************************************************************"
        DocSel.NewLine()
        DocSel.Text = "* 版    本： "
        DocSel.NewLine()
        DocSel.Text = "* 修改内容： "
        DocSel.NewLine()
        DocSel.Text = "* 修改人员： ZG"
        DocSel.NewLine()
        DocSel.Text = "* 修改日期： " + System.DateTime.Now.ToLongDateString()
        DocSel.NewLine()
        DocSel.Text = "*******************************************************************/"
    End Sub

    Sub AddFunInfo()
        Dim DocSel As EnvDTE.TextSelection
        DocSel = DTE.ActiveDocument.Selection
        DocSel.NewLine()
        DocSel.Text = "/*******************************************************************"
        DocSel.NewLine()
        DocSel.Text = "* 效    率： "
        DocSel.NewLine()
        DocSel.Text = "* 注意事项： "
        DocSel.NewLine()
        DocSel.Text = "* 作    者： ZG"
        DocSel.NewLine()
        DocSel.Text = "* 创建日期： " + System.DateTime.Now.ToLongDateString()
        DocSel.NewLine()
        DocSel.Text = "*******************************************************************/"
    End Sub
End Module