为VC6.0添加批量注释功能

打开记事本，输入如下代码：

Sub CommentBlock()
  With ActiveDocument.Selection
  '对于当前窗口打开的文档中选中的文本
    .ReplaceText "%", "//", dsMatchRegExpB
  '在开始位置增加 // 注释
  End With
End Sub

Sub UncommentBlock()
  With ActiveDocument.Selection
   .ReplaceText "%//", "", dsMatchRegExpB
   '同样的，去掉在选择文本中开头找到的注释符号
  End With
End Sub

安装使用这个宏文件：

1、把这个文件命名为COMMENTMAC.dsm，保存到你的VS安装目录下的O:/VS6/Common/MSDev98/Macros中；

2、在VS6的工具条上按下右键，点击“ADD-INS and Macro Files”属性页，选择”COMMENTMAC”；

3、点击“commands”属性页，在左侧下拉框中选择 MACROS，这时右面列表框就出现了两个命令：COMMENTBLOCK和UNCOMMENTBLOCK，用鼠标拖放到工具条上，根据提示选择自己喜欢的图标。

VC打开一个工程，用鼠标选择一段代码（从最左边选几个字符就ok喇），按下对应COMMENTBLOCK的图标，这些代码每行的开始就增加了“//”注释符号，再按下对应UNCOMMENTBLOCK的图标，这些代码的注释符号就被撤销了。

用过VC.net之后用VC6.0真是麻烦……