1 ‘------------------------------------------------------------------------------ 2 ‘FILE DESCRIPTION: 给vc++6.0中添加和取消批量注释的功能 3 ‘------------------------------------------------------------------------------ 4 Sub SetSelNote()‘Sun DESCRIPTION: 过程SetSelNote 用于将选中的文本转换为注释 5  dim CurWin ‘当前获得的窗口 6  set CurWin = ActiveWindow 7  if CurWin.type<>"Text" Then ‘判断当前窗口是否是文本窗口 8   MsgBox "当前窗口不是代码窗口" 9  else10   NoteType = "//"11    BeginLine = ActiveDocument.Selection.TopLine12    EndLine   = ActiveDocument.Selection.BottomLine13   if EndLine < BeginLine then14    Line = BeginLine15    BeginLine = EndLine16    EndLine = Line17   else18    for  row = BeginLine To EndLine19      ActiveDocument.Selection.GoToLine row20      ActiveDocument.Selection.SelectLine‘选中当前行21      ActiveDocument.Selection = NoteType + ActiveDocument.Selection22    Next23   End if24  End if25 End Sub26 27 Sub CancelSelNote()28  dim CurWin ‘当前获得的窗口29  set CurWin = ActiveWindow30  if CurWin.type<>"Text" Then ‘判断当前窗口是否是文本窗口31      MsgBox "当前窗口不是代码窗口"32  else33    BeginLine = ActiveDocument.Selection.TopLine34    EndLine   = ActiveDocument.Selection.BottomLine35   if EndLine < BeginLine then36    Line = BeginLine37    BeginLine = EndLine38    EndLine = Line39   else40    for  row = BeginLine To EndLine41      ActiveDocument.Selection.GoToLine row42      ActiveDocument.Selection.SelectLine‘选中当前行43      SelBlock = ActiveDocument.Selection44      Trim(SelBlock)45      pos = instr(SelBlock,"//")46      if pos <>0 then47        RightBlock = Right(SelBlock, Len(SelBlock)-2)48        ActiveDocument.Selection = RightBlock49      End if50    Next51   End if52  End if53 End Sub