通过宏的方式添加头文件注释

1.打开菜单栏“工具”-->选择"宏"-->"Macro资源管理器"

2.新建宏项目。选择"Modle1"在其中输入如下宏命令即可。

Public Module HeadNote

Sub DocumentFileHeader()
Dim doc As Document
Dim docName As String
Dim companyName As String = "Your company name"
Dim authorName As String = "Your name"
Dim copyrightText As String = String.Format("Copyright (c) {0} {1}. All rights reserved.", Date.Now.Year, companyName)

' Get the name of this object from the file name
doc = DTE.ActiveDocument

' Get the name of the current document
docName = doc.Name

' Set selection to top of document
DTE.ActiveDocument.Selection.StartOfDocument()

' Write copyright tag
DTE.ActiveDocument.Selection.Text = "/*"
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.Text = "* =============================================================================="
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.Text = "*"
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.Text = "* Filename: " + docName
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.Text = "* Description: "
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.Text = "*"

' Write author name tag (optional)
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.Text = "* Version: 1.0"
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.Text = "* Created: " + String.Format("{0:d}", Date.Now) + " " + String.Format("{0}:{1}:{2}", DateTime.Now.Hour, DateTime.Now.Minute, DateTime.Now.Second)
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.Text = "* Compiler: Visual Studio 2010"
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.Text = "*"
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.Text = "* Author: " + authorName
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.Text = "* Company: " + companyName
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.Text = "*"
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.Text = "* =============================================================================="
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.Text = "*/"
DTE.ActiveDocument.Selection.NewLine()
End Sub

End Module

3.该方法在用于C#文件中时会出现问题。在c++.net 即c++文件中测试通过。