一段有用的宏

Imports EnvDTE

Imports System.Diagnostics

 

Public Module MaintenanceComment

 

#Region "Field"

 

    Public strDate As String = Format(Date.Now, " yyyy/MM/dd HH:MM:ss")

 

    Public strName As String = DTE.ActiveDocument.Name

 

    Public strLang As String = strName.Split(".")(strName.Split(".").Length - 1)

 

    Public strSep As String = IIf(strLang.ToUpper = "VB", "'", "//")

 

    Public strModifier As String = "Benny.S.Xu"

 

#End Region

 

 

#Region "Add code file header"

    Sub FileHeader()

        DTE.ActiveDocument.Selection.Text = " /*"

        DTE.ActiveDocument.Selection.NewLine(1)

        DTE.ActiveDocument.Selection.Text = "Copyrigth 2008 Company All rigths reserved"

        DTE.ActiveDocument.Selection.NewLine(1)

        DTE.ActiveDocument.Selection.Text = "File Name: " & strName

        DTE.ActiveDocument.Selection.NewLine(1)

        DTE.ActiveDocument.Selection.Text = "Created By:    " & strModifier

        DTE.ActiveDocument.Selection.NewLine(1)

        DTE.ActiveDocument.Selection.Text = "Created Date:  " & strDate

        DTE.ActiveDocument.Selection.NewLine(1)

        DTE.ActiveDocument.Selection.Text = "Description:   " & strDate

        DTE.ActiveDocument.Selection.NewLine(1)

        DTE.ActiveDocument.Selection.Text = "Change History: ID  ModifiedBy ModifiedDate  Desciption"

        DTE.ActiveDocument.Selection.NewLine(1)

        DTE.ActiveDocument.Selection.NewLine(1)

        DTE.ActiveDocument.Selection.Text = "*/"

 

    End Sub

 

#End Region

 

 

#Region "Add Macro"

    Sub Add()

        'DTE.ActiveDocument.Selection.Text = strSep & "------------------------------------------------------------"

        'DTE.ActiveDocument.Selection.NewLine(1)

        DTE.ActiveDocument.Selection.Text = strSep & "Modified By:" & strModifier

        DTE.ActiveDocument.Selection.NewLine(1)

        DTE.ActiveDocument.Selection.Text = strSep & "Modified Date:" & strDate

        DTE.ActiveDocument.Selection.NewLine(1)

        DTE.ActiveDocument.Selection.Text = strSep & "Descriptions:"

        DTE.ActiveDocument.Selection.NewLine(1)

        'DTE.ActiveDocument.Selection.Text = strSep & "------------------------------------------------------------"

        'DTE.ActiveDocument.Selection.NewLine(1)

        DTE.ActiveDocument.Selection.Text = strSep & "##Add "

        DTE.ActiveDocument.Selection.NewLine(2)

        DTE.ActiveDocument.Selection.Text = strSep & "##End Add"

        DTE.ActiveDocument.Selection.NewLine(1)

        'DTE.ActiveDocument.Selection.Text = strSep & "------------------------------------------------------------"

    End Sub

#End Region

 

#Region "Change Macro"

 

    Sub Change()

        'DTE.ActiveDocument.Selection.Text = strSep & "------------------------------------------------------------"

        'DTE.ActiveDocument.Selection.NewLine(1)

        DTE.ActiveDocument.Selection.Text = strSep & "Modified By:" & strModifier

        DTE.ActiveDocument.Selection.NewLine(1)

        DTE.ActiveDocument.Selection.Text = strSep & "Modified Date:" & strDate

        DTE.ActiveDocument.Selection.NewLine(1)

        DTE.ActiveDocument.Selection.Text = strSep & "Descriptions:"

        'DTE.ActiveDocument.Selection.NewLine(1)

        'DTE.ActiveDocument.Selection.Text = strSep & "------------------------------------------------------------"

        DTE.ActiveDocument.Selection.NewLine(1)

        DTE.ActiveDocument.Selection.Text = strSep & "##Change "

        DTE.ActiveDocument.Selection.NewLine(2)

        DTE.ActiveDocument.Selection.Text = strSep & "##To"

        DTE.ActiveDocument.Selection.NewLine(2)

        DTE.ActiveDocument.Selection.Text = strSep & "##End Change"

        DTE.ActiveDocument.Selection.NewLine(1)

        'DTE.ActiveDocument.Selection.Text = strSep & "------------------------------------------------------------"

    End Sub

 

#End Region

 

#Region "Delete Macro"

 

    Sub Delete()

        'DTE.ActiveDocument.Selection.Text = strSep & "------------------------------------------------------------"

        'DTE.ActiveDocument.Selection.NewLine(1)

        DTE.ActiveDocument.Selection.Text = strSep & "Modified By:" & strModifier

        DTE.ActiveDocument.Selection.NewLine(1)

        DTE.ActiveDocument.Selection.Text = strSep & "Modified Date:" & strDate

        DTE.ActiveDocument.Selection.NewLine(1)

        DTE.ActiveDocument.Selection.Text = strSep & "Descriptions:"

        DTE.ActiveDocument.Selection.NewLine(1)

        'DTE.ActiveDocument.Selection.Text = strSep & "------------------------------------------------------------"

        'DTE.ActiveDocument.Selection.NewLine(1)

        DTE.ActiveDocument.Selection.Text = strSep & "##Delete "

        DTE.ActiveDocument.Selection.NewLine(2)

        DTE.ActiveDocument.Selection.Text = strSep & "##End Delete"

        DTE.ActiveDocument.Selection.NewLine(1)

        'DTE.ActiveDocument.Selection.Text = strSep & "------------------------------------------------------------"

    End Sub

 

#End Region

 

 

End Module