vc宏

 
Sub DD()
'DESCRIPTION: A description was not provided.
'Begin Recording
 ActiveDocument.Selection = "/*"
 ActiveDocument.Selection.NewLine
 ActiveDocument.Selection = " * "
 ActiveDocument.Selection.NewLine
 ActiveDocument.Selection = "*/"
 ActiveDocument.Selection.LineUp
 
'End Recording
End Sub

Sub TT()
'DESCRIPTION: A description was not provided.
'Begin Recording
 ActiveDocument.Selection = "TRACE(" & """%s" & "(%d) ERR: %s/n"""+", __FILE__, __LINE__,"+"""ErrorData"""+");"
'End Recording
End Sub

Sub COMMENT()
'DESCRIPTION: A description was not provided.
'Begin Recording
 ActiveDocument.Selection = "/**"
 ActiveDocument.Selection.NewLine
 ActiveDocument.Selection = " * <div> 函數描述 </div>"
 ActiveDocument.Selection.NewLine
 ActiveDocument.Selection = "* @param: ParamName[in] None。"
 ActiveDocument.Selection.NewLine
 ActiveDocument.Selection = "* @param: ParamName[in] None。"
 ActiveDocument.Selection.NewLine
 ActiveDocument.Selection = "* @return:  None。"
 ActiveDocument.Selection.NewLine
 ActiveDocument.Selection = "* @author <a href=mailto:[email protected]>H.K</a>" 
 ActiveDocument.Selection.NewLine
 ActiveDocument.Selection = "*/"

'End Recording
End Sub

Sub SS()
'DESCRIPTION: SS
 'ActiveDocument.Selection =  "/* " + ActiveDocument.Selection + " */"
 ActiveDocument.Selection =  "/*  */"
 ActiveDocument.Selection.CharLeft dsMove, 3
End Sub