VC6IDE環境宏輔助添加移除註釋

VC6很老了（15年），當年的IDE功能不如現在的各種IDE功能豐富。

比如自動添加註釋，就需要藉助第三方插件或自己動手實現。

最近做些code試驗，新裝上了VC6，但是改代碼時不能自動添加註釋，很不爽，於是，翻出曾經伴隨了很多年的這些玩意，順便做個記錄。

首先，將以下代碼複製到記事本，另存爲vcMacros.DSM，

'--VC6IDE宏輔助添加移除註釋--
'2014-01-01

'--添加行註釋--	//
Sub LineCommentAdd()
With ActiveDocument.Selection 
.ReplaceText "%", "//", dsMatchRegExpB
End With
End Sub
'--移除行註釋--	//
Sub LineCommentUndo()
With ActiveDocument.Selection
.ReplaceText "%//", "", dsMatchRegExpB
End With
End Sub

'--添加行註釋--	//--
Sub Comment2Add()
With ActiveDocument.Selection 
.ReplaceText "%", "//--", dsMatchRegExpB
End With
End Sub
'--移除行註釋--	//--
Sub Comment2Undo()
With ActiveDocument.Selection
.ReplaceText "%//--", "", dsMatchRegExpB
End With
End Sub

'--添加行註釋--	//xx_YYYY-MM-DD--
Sub CommentDateAdd()
sss = "//xx_" & year(date) & "-" & month(date) & "-" & day(date) & "--"
With ActiveDocument.Selection 
.ReplaceText "%", sss, dsMatchRegExpB
End With
End Sub
'--移除行註釋--	//xx_YYYY-MM-DD--
Sub CommentDateUndo()
sss = "%//xx_" & year(date) & "-" & month(date) & "-" & day(date) & "--"
With ActiveDocument.Selection
.ReplaceText sss, "", dsMatchRegExpB
End With
End Sub

'--添加行註釋--	//--debug ok--//
Sub CommentDebugAdd()
With ActiveDocument.Selection 
.ReplaceText "%", "//--debug ok--//", dsMatchRegExpB
End With
End Sub
'--移除行註釋--	//--debug ok--//
Sub CommentDebugUndo()
With ActiveDocument.Selection
.ReplaceText "%//--debug ok--//", "", dsMatchRegExpB
End With
End Sub

VC6IDE，選擇菜單Tools/Customize，在彈出的對話框上選擇Add-ins and  Macro Files標籤，在點Browse...按鈕，

選擇剛纔存儲的文件vcMacros.DSM，這個文件就會出現在左邊，選中前面方框的勾，

再在對話框上選擇Commands標籤，然後選擇Category下的Macro，

然後把LineCommentAdd和LineCommentUndo分別拖放到IDE上面的工具欄上，

其他幾對如果願意使用也可以拖放上去。

OK。。。好了之後在弄代碼時就可以通過點工具欄上的相關按鈕自動添加或刪除註釋了，添加或刪除註釋前需要選中相應代碼。

提示，用CommentDateAdd可以添加註釋時自動添加日期。。。

象這樣，

//xx_2014-1-2--{
//xx_2014-1-2--	int i = 0;
//xx_2014-1-2--}