經過宏本身的加載缺省註釋

Imports System

Imports EnvDTE

Imports EnvDTE80

Imports EnvDTE90

Imports System.Diagnostics

Public Module Module1

    Sub AddUnitComment()

        Dim DocSel As EnvDTE.TextSelection

        DocSel = DTE.ActiveDocument.Selection

        DocSel.NewLine()

        DocSel.Text = "/*****************************************"

        DocSel.NewLine()

        DocSel.Text = "*@file     "

        DocSel.NewLine()

        DocSel.Text = "*@brief    "

        DocSel.NewLine()

        DocSel.Text = "*@author   zhangmang"

        DocSel.NewLine()

        DocSel.Text = "*@date     " + System.DateTime.Now.ToLongDateString()

        DocSel.NewLine()

        DocSel.Text = "*@remarks  "

        DocSel.NewLine()

        DocSel.Text = "*@version 3.0"

        DocSel.NewLine()

        DocSel.Text = "*Copyright (c) 1998-2013 zmCorporation"

        DocSel.NewLine()

        DocSel.Text = "*****************************************/"

    End Sub

    Sub AddFuncComment()

        Dim DocSel As EnvDTE.TextSelection

        DocSel = DTE.ActiveDocument.Selection

        DocSel.NewLine()

        DocSel.Text = "/*****************************************"

        DocSel.NewLine()

        DocSel.Text = "*@brief    "

        DocSel.NewLine()

        DocSel.Text = "*@author zhangmang " + System.DateTime.Now.ToLongDateString()

        DocSel.NewLine()

        DocSel.Text = "*@param[out]   "

        DocSel.NewLine()

        DocSel.Text = "*@param[in]    "

        DocSel.NewLine()

        DocSel.Text = "*@return   "

        DocSel.NewLine()

        DocSel.Text = "*****************************************/"

    End Sub

    Sub AddCommonComment()

        Dim DocSel As EnvDTE.TextSelection

        DocSel = DTE.ActiveDocument.Selection

        DocSel.NewLine()

        DocSel.Text = "//zhangmang " + System.DateTime.Now.ToLongDateString() + "fixed bug "

    End Sub

End Module