VC6宏注释代码.docVIP

VC6宏注释代码 ------------------------------------------------------------------------------ VC - Tools - Macro... 在 Macro Name: 输入框中输入 abc，点击右边按钮Edit 在编辑视图中，Crtl+A，然后 Delete，删除全部 复制本Txt所有内容到刚才的编辑视图中，保存 再一次 VC - Tools - Macro... 点击按钮Options，在扩展的界面上点击KeyStrockes按钮 在新的界面的Commands:列表框中选择AddFunDescription 鼠标点击Press new shortcut，然后按 Ctrl + = 在输入框中会看到 Ctrl + =，按右边的Assign按钮 依次类推，选中Comment，按 Ctrl + /，点Assign按钮 依次类推，选中ReComment，按 Ctrl + \，点Assign按钮 点Close按钮，完成 ------------------------------------------------------------------------------ ------------------------------------------------------------------------------ 编写函数时，选择函数名，可以多行，按 Ctrl+= 就自动创建函数说明，但需要完整的填充说明 如果需要注释一部分代码，只需要选择这些行，按 Ctrl+/ 就自动 用//注释掉代码 对上面注释的取消，同样是选择这些行，按 Ctrl+\，即还原注释前的样子 ------------------------------------------------------------------------------ ------------------------------------------------------------------------------ FILE DESCRIPTION: New Macro File ------------------------------------------------------------------------------ Sub Comment() DESCRIPTION: 注释选中的代码行 dim top, bottom, line dim startCol, col startCol = 1000 With ActiveDocument.Selection top = .TopLine bottom = .BottomLine for line = top to bottom .GoToLine line, dsSelect .SelectLine .ReplaceText /*, /* .ReplaceText */, */ .StartOfLine dsFirstText col = .CurrentColumn if startCol col then startCol = col end if next for line = top to bottom .MoveTo line, startCol MsgBox .text .Text = // next end with End Sub Sub ReComment() DESCRIPTION: 取消选中代码行的注释 dim top, bottom, line dim startCol, col With ActiveDocument.Selection top = .TopLine bottom = .BottomLine for line = top to bottom .GoToLine line, dsSelect .SelectLine .ReplaceText /*, /* .ReplaceText */, */ .StartOfLine dsFirstText .SelectLine pos = InStr(.text, //) if pos 0 then .Cancel .StartOfLine dsFirstText .Delete 2 .CharRight dsExtend if .Text = then .Delete end if end if next End With end Sub Sub AddFunD