vs2008 中加入注释宏

1．注释宏函数定义，请修改DefaultUserName 为自己的姓名

Sub AddHeadDesc() 'DESCRIPTION: 添加一个标准的头文件说明 DTE.ActiveDocument.Selection.StartOfDocument() DefaultUserName = "XXX" Dim FileName FileName = DTE.ActiveDocument.Name selection = DTE.ActiveDocument.Selection selection.Text = "/*******************************************************************" + CStr(CrLf) selection.Text = selection.Text + "文件名 ：" + FileName + CStr(CrLf) selection.Text = selection.Text + "创建者 ：" + DefaultUserName selection.Text = selection.Text + CStr(CrLf) + "创建时间 ：" + CStr(Now) selection.Text = selection.Text + CStr(CrLf) + "功能描述 ：" selection.Text = selection.Text + CStr(Lf) + "** " selection.Text = selection.Text + CStr(Lf) + "******************************************************************/" + CStr(Lf) DTE.ActiveDocument.Selection.LineUp(flase, 3) DTE.ActiveDocument.Selection.EndOfLine() End Sub Sub AddMethodDesc() 'DESCRIPTION: 添加函数注释 Dim MethodName DefaultUserName = "helq" MethodName = DTE.ActiveDocument.Selection.Text DTE.ActiveDocument.Selection.StartOfLine() selection = DTE.ActiveDocument.Selection selection.Text = "/******************************************************************" selection.Text = selection.Text + CStr(CrLf) + "函数名 ：" + MethodName selection.Text = selection.Text + "创建者 ：" + DefaultUserName selection.Text = selection.Text + CStr(CrLf) + "参数 ：" selection.Text = selection.Text + CStr(CrLf) + "返回值 ：" selection.Text = selection.Text + CStr(CrLf) + "功能描述 ：" selection.Text = selection.Text + CStr(CrLf) + "* " selection.Text = selection.Text + CStr(CrLf) + "******************************************************************/" + CStr(CrLf) DTE.ActiveDocument.Selection.LineUp(flase, 5) DTE.ActiveDocument.Selection.EndOfLine() End Sub

2. 打开vc，工具菜单中选择 工具-〉宏->宏IDE

3. 宏ide，在资源管理器中选择sample->DevStudio6Editor ，把宏函数拷贝右侧编辑框中

4.回到vc 2008 ide,选择 工具->宏-〉宏资源管理器

双击addheaddesc 添加文件描述

选择函数名称，双击 addMethodDesc 添加函数描述