为了给维护人员给他人方便，.NET中的每个类库文件少不了文件头注释，用“Ctrl+C”、“Ctrl+V”能达到目的，用快捷键也能更好的让你达到你想要的目的。

如何创建文件头注释：

第一：打开VS，点击“工具”——“宏”——“宏IDE(I)”，即：

第二：在宏编辑窗口中选择“Samples”——“添加”——“添加新项”，即：

第三：出现添加新项，选择“模块”——“添加”，这里可以更改名字，也可以不更改。即：

第四：然后你就可以在编写有关文件头的注释信息了。代码如下：

Sub DocumentFileHeader()

        Dim doc As Document
        Dim docName As String
        Dim companyName As String = "提高班九期"
        Dim authorName As String = "朱丹"
        Dim versionnumber = "1.1"

        ' 从程序中获得文件的名字
        doc = DTE.ActiveDocument
        '获得当前编辑类的名字
        docName = doc.Name
        ' 将添加焦点定位在文件首部
        DTE.ActiveDocument.Selection.StartOfDocument()

        ' 添加一个版权说明
        DTE.ActiveDocument.Selection.Text = "'******************************************************" '以String类型添加自己想要的符号、文字
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.text = "'作者：" + authorName
        DTE.ActiveDocument.Selection.NewLine() '添加一个空行
        DTE.ActiveDocument.Selection.Text = "'文件名：" + docName
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.Text = "'说明："
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.Text = "'创建日期：" + String.Format("{0:D}",Date.Now)
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.text = "'版本号：" + versionnumber
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.Text = "'*******************************************************"
        DTE.ActiveDocument.Selection.NewLine()

    End Sub

分配快捷键：

第一：回到VS中，点击“工具”——“选项”，即：

第二： 进行选项窗口后，点击“键盘”，在“显示命令包含”中找到你刚刚编写的文件头注释文件，然后在“按快捷键”中，按你想给它的快捷键（不是输入快捷键哦。。。），如果此时你的快捷键与已有使用对象，则在“快捷键当前使用对象中”项中给你提示。然后“分配”，最后“确定”，就结束操作了，即：

注释效果：

这样你就利用宏写好了一个文件头注释，并给它分配了快捷键。这样，只需你的一个快捷键就可以解决文件头注释问题了。注释效果：

只要认真看了，学习了，你就能做到！