给VS设置代码创建人的宏

Sub AddFunComment()
    Dim DocSel As EnvDTE.TextSelection
    DocSel = DTE.ActiveDocument.Selection
    DocSel.Text = "说明:" & Chr(13) & "创建人:XXX" & Chr(13) & "创建日期:" + System.DateTime.Now.ToString("yyyy-MM-dd HH:mm:ss")
    DTE.ActiveDocument.Selection.LineUp(False, 2)
End Sub
​

工具->宏 

工具->键盘->然后给宏设置快捷键

仅限VS2010及以下版本