摘要：
Sub AbsorbThisProcedure() If Application.VBE.MainWindow.Visible = False Then MsgBox "请先激活VBE编辑窗口再执行!" Exit Sub End If On Error Resume Next Set VbCodePane = Applicati... 阅读全文
摘要：
Public Sub SmartIndenterProcedure() Dim OneComp As VBComponent Dim StartLine As Long, EndLine As Long Dim LineIndex As Long, LineNo As Long, LineCount Dim StartCol As Long, EndCol As ... 阅读全文