VC注释宏COMMENTMAC.dsm

VC注释宏COMMENTMAC

Sub LineComment()

lTopLine = ActiveDocument.Selection.TopLine

lBottomLine = ActiveDocument.Selection.BottomLine

For I = lTopLine To lBottomLine

ActiveDocument.Selection.MoveTo I,1

ActiveDocument.Selection.SelectLine

s = ActiveDocument.Selection.Text

if left(s,2) = “//“ then

s = right(s,len(s)-2)

else

s = “//“ + s

end if

ActiveDocument.Selection.Text = s

Next

End Sub


转载请注明来源,欢迎对文章中的引用来源进行考证,欢迎指出任何有错误或不够清晰的表达。可以在下面评论区评论,也可以邮件至 Web@Cool02.com

文章标题:VC注释宏COMMENTMAC.dsm

文章字数:54

本文作者:零贰

发布时间:2010-08-25, 12:11:41

最后更新:2020-03-26, 15:16:36

原始链接:/html/20100825121141.html

版权声明: "署名-非商用-相同方式共享 4.0" 转载请保留原文链接及作者。

目录
零址导航 Gitee