vc中录制宏来添加注释

需要用VBScript写的宏来实现，我有一个仅供参考
Sub AddComment()
'DESCRIPTION: 将选中的段落用//进行注释
dim i
Descr = ActiveDocument.Selection

Descr2 = "//"
for i=1 to len(descr)
if mid(Descr, i,1) = chr(10) and i<> len(descr) then
Descr2 = Descr2 + mid(Descr,i,1) + "//"
else
Descr2 = Descr2 + mid(Descr,i,1)
end if
next

ActiveDocument.Selection = Descr2
End Sub
添加方法如下:
1.从Tools菜单中选Customize项，在Add-ins and macro files选页中点中SAMPLE,然后关闭
2.从Tools菜单中选Macro项，在出来的对话框中选任一个，点Edit按钮,然后把上面的代码拷贝到文档的最后.保存，关闭
3.从Tools菜单中选Customize项，在Command页，Category下拉框列表选项中选Macro,在右边的ListBox中，将AddComment用鼠标拖到工具栏，然后会让你选一个图标，你选一个你喜欢的。这期间会询问宏文件已更改，是否重新载入，点击是，确认
4.使用方法：选中一段文本,然后点击你刚才拖到工具栏上的按钮，当前文本就给注释调了
以上仅供参考，请指正.