批量删除vc++源程序中的注释(VBA程序)

阿杰

这几天做个软件登记,要源代码,我准备了源代码拿过去,审核的小姐朱唇轻启:"不要注释!",我就乖乖的回来删注释了.
没想到写注释很烦人,删注释就更烦人了.
一个一个的删总是很烦,就写了个VBA代码.
Sub 删除注释()
Dim i As Paragraph
Application.ScreenUpdating = False
For Each i In ActiveDocument.Paragraphs
If i.Range Like "*//*" = True Then
i.Range.Delete
ElseIf i.Range Like "*/**" = True Then
i.Range.Delete
End If
Next
Application.ScreenUpdating = True
End Sub

写成宏,一点就完事了...