VC6.0 设置批量注释

（1）在Visual C++6.0中单击“File/New”菜单项，打开新建窗口，选中“Files”选项卡 ， Macro File

（2）在列表中选择“Macro File”选项，在“File”编辑框中输入文件名称，单击OK按钮创建宏文件，弹出新建宏文件窗口

（3）在“Descripion”备注框中输入宏文件的描述信息，单击OK按钮创建宏文件。此时，在代码编辑器中将创建一个宏文件窗口

（4）向宏文件中添加两个子过程，语言为VBScript，代码如下。

'------------------------------------------------------------------------------
'FILE DESCRIPTION: 批量注释/批量取消注释
'------------------------------------------------------------------------------
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(SelBock)

                pos =  instr(SelBlock,"//")

                if pos <>0 then

                    RightBlock = Right(SelBlock,Len(SelBlock)-2)

                    ActiveDocument.Selection = RightBlock

                End If
            Next

        End if

    End if

End Sub

（5）保存宏文件。选择“Tools”“Customize”命令打开自定义对话框，选择“Add-ins and Macro Files”选项卡

（6）单击Browse按钮，打开浏览对话框，选择之前创建宏文件，此时会发现它将显示在“Add-ins and macro”列表中

（7）切换到“Commands”选项卡，在“Category”组合框中选择“Macros”选项，在右侧的列表中会显示当前宏文件中定义的命令，

（8）在“Commands”列表中选中宏命令，将其拖动到工具栏中，此时将弹出“Button Appearance”窗口，

（9）在“Button Appearance”窗口中选中“Image only”单选按钮，在“Images”群组框中为按钮选择一个图标，单击OK按钮完成工具栏设置。

（10）按照步骤7到步骤9的方法将图2中的另一个宏命令添加到工具栏中。

使用方法：

在代码编辑框中选中多行代码，单击工具栏中的宏命令按钮1，发现这些代码被注释了；点击工具栏中的宏命令按钮2，发现这些代码被取消注释了