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:weekyhuang@gmail.com>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