#Region "Field"
Public strDate As String = Format(Date.Now, " yyyy/MM/dd HH:MM:ss")
Public strName As String = DTE.ActiveDocument.Name
Public strModifier As String = "Crane Shen"
#End Region
#Region "Add code file header"
Sub FileHeader()
DTE.ActiveDocument.Selection.Text = " /*"
DTE.ActiveDocument.Selection.NewLine(1)
DTE.ActiveDocument.Selection.Text = "Copyrigth 2010 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

