|
[plain]
'------------------------------------------------------------------------------
'FILE DESCRIPTION: 为开发环境添加批量注释或取消注释
'------------------------------------------------------------------------------
Sub SetSelNote() 'Sun DESCRIPTION:过程SetSellNote用于将选中的文本转换为注释
dim CurWin
set CurWin = ActiveWindow
if CurWin.type<>"Text" Then
MsgBox "当前窗口不是代码窗口"
else
NoteType = "//"
BeginLine = ActiveDocument.selection.TopLine
EndLine = ActiveDocument.Selection.BottomLine
if EndLine < BeginLine Then
line = BeginLine
BeginLine = EndLine
EndLine = Line
else
for row = BeginLine To EndLine
ActiveDocument.Selection.GoToLine row
ActiveDocument.Selection.SelectLine
ActiveDocument.Selection = NoteType+ActiveDocument.Selection
Next
End if
End if
End Sub
Sub CancelSelNote()
dim CurWin
set CurWin = ActiveWindow
if CurWin.type<>"Text" Then
MsgBox "当前窗口不是代码窗口"
else
BeginLine = ActiveDocument.Selection.TopLine
EndLine = ActiveDocument.Selection.BottomLine
if EndLine < BeginLine Then
Line = BeginLine
BeginLine = EndLine
EndLine = Line
else
for row = BeginLine To EndLine
ActiveDocument.Selection.GoToLine row
ActiveDocument.Selection.SelectLine
SelBlock = ActiveDocument.Selection
Trim(SelBlock)
pos = instr(SelBlock, "//")
if pos <> 0 then
RightBlock = Right(SelBlock, Len(SelBlock)-2)
ActiveDocument.Selection = RightBlock
End if
Next
End if
End if
End Sub
|