'添加文件頭定義
    Public Sub AddFileHead()

        Dim objTextSelection As TextSelection
        Dim comment As String
        objTextSelection = CType(DTE.ActiveDocument.Selection, EnvDTE.TextSelection)
        'objTextSelection.LineUp()
        objTextSelection.NewLine()
        objTextSelection.Text = comment + "http://==================================================================="
        objTextSelection.NewLine()
        objTextSelection.Text = comment + "/** \file"
        objTextSelection.NewLine()
        objTextSelection.Text = comment + "*  Filename: " + DTE.ActiveDocument.Name
        objTextSelection.NewLine()
        objTextSelection.Text = comment + "*"
        objTextSelection.NewLine()
        objTextSelection.Text = comment + "*  Desc:"
        objTextSelection.NewLine()
        objTextSelection.Text = comment + "*"
        objTextSelection.NewLine()
        objTextSelection.Text = comment + "*  His:      Ipedo create @ " + Date.Now
        objTextSelection.NewLine()
        objTextSelection.Text = comment + "*/"
        objTextSelection.NewLine()
        objTextSelection.Text = comment + "http://==================================================================="

    End Sub
    '添加文件函數定義
    Public Sub AddFunctionHead()

        Dim objTextSelection As TextSelection
        Dim comment As String
        objTextSelection = CType(DTE.ActiveDocument.Selection, EnvDTE.TextSelection)
        'objTextSelection.LineUp()
        objTextSelection.NewLine()
        objTextSelection.Text = comment + "/** \brief"
        objTextSelection.NewLine()
        objTextSelection.Text = comment + " " + "* 函數功能："
        objTextSelection.NewLine()
        objTextSelection.Text = comment + "*"
        objTextSelection.NewLine()
        objTextSelection.Text = comment + "* 函數說明："
        objTextSelection.NewLine()
        objTextSelection.Text = comment + "*"
        objTextSelection.NewLine()
        objTextSelection.Text = comment + "* \param  _f1   第一個浮點參數."
        objTextSelection.NewLine()
        objTextSelection.Text = comment + "* \param  _f2   第二個浮點參數."
        objTextSelection.NewLine()
        objTextSelection.Text = comment + "* \return  bool   返回兩個浮點數是否相等.返回true時表示相等."
        objTextSelection.NewLine()
        objTextSelection.Text = comment + "*"
        objTextSelection.NewLine()
        objTextSelection.Text = comment + "* 算法描述："
        objTextSelection.NewLine()
        objTextSelection.Text = comment + "* （描述內容）"
        objTextSelection.NewLine()
        objTextSelection.Text = comment + "*/"

    End Sub

    Sub 文件注釋()
        DTE.ActiveDocument.Selection.Text = "http://==================================================================="
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.Text = "/** \file  "
        DTE.ActiveDocument.Selection.NewLine()
        'DTE.ActiveDocument.Selection.Indent()
        DTE.ActiveDocument.Selection.Text = "* Filename :   " + DTE.ActiveDocument.Name
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.Text = "* Desc     :   "
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.Text = "* His      :   Windy create @" + Date.Now
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.DeleteLeft()
        DTE.ActiveDocument.Selection.Text = "*/"
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.Text = "http://==================================================================="
        DTE.ActiveDocument.Selection.StartOfLine(vsStartOfLineOptions.vsStartOfLineOptionsFirstText)
    End Sub