VS.Net2003 注释宏

    Sub 注解()
        DTE.ActiveDocument.Selection.Text = "//************************** "
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.Text = "//*  名　　称： "
        DTE.ActiveDocument.Selection.Text = DTE.ActiveDocument.ProjectItem().Document.Name().Substring(0, DTE.ActiveDocument.ProjectItem().Document.Name().Length - 3)
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.Text = "//*  版　　本：V1.00 "
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.Text = "//*  版    权：金卫医药信息有限公司"
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.Text = "//*  程序设计： *****"
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.Text = "//*  开发日期："
        DTE.ActiveDocument.Selection.Text = System.DateTime.Now.ToString()
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.Text = "//*  修 改 人："
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.Text = "//*  修改日期："
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.Text = "//************************* "
    End Sub
    Sub Modify()
        DTE.ActiveDocument.Selection.Text = "//*************    修改  ************* "
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.Text = "//*  修改目的："
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.Text = "//*  修 改 人：*****"
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.Text = "//*  修改日期："
        DTE.ActiveDocument.Selection.Text = System.DateTime.Now.ToString()
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.Text = "//*********************************** "
    End Sub