今天看代码,看到一些代码没有函数注释,突然想到可以用宏来实现注释的自动添加,还添加了按钮,颇有成就感,故总结一下,积累经验。 Vc下面可以直接录制宏(Tools->Record quick Macros),这样可以把鼠标,键盘动作录制下来,录制以后可以编辑,(Tools->Macro,选中宏名称,点 EDIT 就可以进入宏文件中进行编辑)。默认的存储文件名是 MYMACRO.DSM,也可以直接打开编辑. 编辑代码是用vbs 写的,代码如下:
'------------------------------------------------------------------------------
'FILE DESCRIPTION: New Macro File
'------------------------------------------------------------------------------
Sub FunctionHead()
'DESCRIPTION: 函数注释 标准格式
'Begin Recording
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "//"
ActiveDocument.Selection = "/*"
for i=0 to 100
ActiveDocument.Selection = "="
next
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "//函数名:"
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "//作者:"
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "//日期:"
ActiveDocument.Selection = Date
ActiveDocument.Selection = " "
ActiveDocument.Selection = Time
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "//功能:"
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "//输入参数:"
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "//返回值:"
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "//修改记录:"
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "//备注:"
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "//"
for i=0 to 100
ActiveDocument.Selection = "="
next
ActiveDocument.Selection = "*/"
ActiveDocument.Selection.NewLine
'End Recording
End Sub
Sub FileHead()
'DESCRIPTION: 文件注释 标准格式
'Begin Recording
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "//"
ActiveDocument.Selection = "/*"
for i=0 to 100
ActiveDocument.Selection = "="
next
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "//文件名:"
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "//作者:"
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "//日期:"
ActiveDocument.Selection = Date
ActiveDocument.Selection = " "
ActiveDocument.Selection = Time
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "//功能:"
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "//修改记录:"
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "//备注:"
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "//"
for i=0 to 100
ActiveDocument.Selection = "="
next
ActiveDocument.Selection = "*/"
ActiveDocument.Selection.NewLine
'End Recording
End Sub
'------------------------------------------------------------------------------
'FILE DESCRIPTION: New Macro File
'------------------------------------------------------------------------------
Sub FunctionHead()
'DESCRIPTION: 函数注释 标准格式
'Begin Recording
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "//"
ActiveDocument.Selection = "/*"
for i=0 to 100
ActiveDocument.Selection = "="
next
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "//函数名:"
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "//作者:"
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "//日期:"
ActiveDocument.Selection = Date
ActiveDocument.Selection = " "
ActiveDocument.Selection = Time
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "//功能:"
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "//输入参数:"
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "//返回值:"
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "//修改记录:"
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "//备注:"
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "//"
for i=0 to 100
ActiveDocument.Selection = "="
next
ActiveDocument.Selection = "*/"
ActiveDocument.Selection.NewLine
'End Recording
End Sub
Sub FileHead()
'DESCRIPTION: 文件注释 标准格式
'Begin Recording
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "//"
ActiveDocument.Selection = "/*"
for i=0 to 100
ActiveDocument.Selection = "="
next
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "//文件名:"
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "//作者:"
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "//日期:"
ActiveDocument.Selection = Date
ActiveDocument.Selection = " "
ActiveDocument.Selection = Time
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "//功能:"
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "//修改记录:"
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "//备注:"
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "//"
for i=0 to 100
ActiveDocument.Selection = "="
next
ActiveDocument.Selection = "*/"
ActiveDocument.Selection.NewLine
'End Recording
End Sub
在写完宏后,可以选择 Tools->Macro->Option ->Toolbats,把新制作的宏做成按钮显示,然后选择一个配套的icon,就可以在需要时直接加入注释了,很方便的哦,如果不够你还可以添加快捷键完全使用键盘操作。。。。。。。。。。。。
原文地址:http://blog.csdn.net/sangxiansheng/article/details/2487170