零贰-Blog

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

转载文章请注明来源：零贰-Blog - 《 VC注释宏COMMENTMAC.dsm 》
本文链接: http://www.cool02.com/158.html