使用 vs2008 宏 Macro

使用 vs2008 的宏 Macro 来实现一个小小的功能，向代码指定位置插入当前系统时间的值，“alt+F8”打开宏编辑器，输入你想输入的代码

Public Module Module1

Sub PrintDateTime()
If (Not IsNothing(DTE.ActiveDocument)) Then
Dim selection As TextSelection = DTE.ActiveDocument.Selection
selection.Insert(DateTime.Now.ToString())
End If
End Sub
Sub PrintMyName()
If (Not IsNothing(DTE.ActiveDocument)) Then
Dim selection As TextSelection = DTE.ActiveDocument.Selection
selection.Insert("anders lu")
End If
End Sub
Sub PrintXMLAnnotation()
If (Not IsNothing(DTE.ActiveDocument)) Then
Dim selection As TextSelection = DTE.ActiveDocument.Selection
selection.Insert("功 能:")
selection.NewLine()
selection.Insert("作 者: anders lu")
selection.NewLine()
selection.Insert("创建时间:" + DateTime.Now.ToString())
selection.NewLine()
selection.Insert("修正履历:")
selection.NewLine()
selection.Insert("修正时间:")
End If
End Sub

End Module

这样在写代码的时候就可以使用它了，两步，第一步三个"/";第二步执行宏，结果如下：

/// <summary>
/// 功 能:
/// 作 者: anders lu
/// 创建时间:2011-8-5 17:43:22
/// 修正履历:
/// 修正时间:
/// </summary>
/// <typeparam name="Q"></typeparam>
/// <returns></returns>

我最近在使用代码段及代码模板在整理一些项目需要的东西，会陆续写成博客。。。。。