vc6.0批量加注释

MATLAB批量加注释的方法非常简单明了，加注释是ctrl+R，去注释是ctrl+T

然后在VC中我对一条一条加注释的方法非常烦恼，我想也许会有简单的方法可以批量家注释。果然，先贴代码

 '------------------------------------------------------------------------------
 'FILE DESCRIPTION: 给vc++6.0中添加和取消批量注释的功能
 '------------------------------------------------------------------------------
 Sub SetSelNote()'Sun DESCRIPTION: 过程SetSelNote 用于将选中的文本转换为注释
  dim CurWin '当前获得的窗口
  set CurWin = ActiveWindow
  if CurWin.type<>"Text" Then '判断当前窗口是否是文本窗口
   MsgBox "当前窗口不是代码窗口"
  else
   NoteType = "//"
    BeginLine = ActiveDocument.Selection.TopLine
    EndLine   = ActiveDocument.Selection.BottomLine
   if EndLine < BeginLine then
    Line = BeginLine
    BeginLine = EndLine
    EndLine = Line
   else
    for  row = BeginLine To EndLine
      ActiveDocument.Selection.GoToLine row
      ActiveDocument.Selection.SelectLine'选中当前行
      ActiveDocument.Selection = NoteType + ActiveDocument.Selection
    Next
   End if
  End if
 End Sub

 Sub CancelSelNote()
  dim CurWin '当前获得的窗口
  set CurWin = ActiveWindow
  if CurWin.type<>"Text" Then '判断当前窗口是否是文本窗口
      MsgBox "当前窗口不是代码窗口"
  else
    BeginLine = ActiveDocument.Selection.TopLine
    EndLine   = ActiveDocument.Selection.BottomLine
   if EndLine < BeginLine then
    Line = BeginLine
    BeginLine = EndLine
    EndLine = Line
   else
    for  row = BeginLine To EndLine
      ActiveDocument.Selection.GoToLine row
      ActiveDocument.Selection.SelectLine'选中当前行
      SelBlock = ActiveDocument.Selection
      Trim(SelBlock)
      pos = instr(SelBlock,"//")
      if pos <> then
        RightBlock = Right(SelBlock, Len(SelBlock)-)
        ActiveDocument.Selection = RightBlock
      End if
    Next
   End if
  End if
 End Sub

具体方法参照http://blog.163.com/fantasy_sunny/blog/static/195918212201222504855353/

感谢原作者辛苦贴图。