Vba代码自动缩进功能的实现.doc

Vba代码自动缩进功能的实现 喜欢Vba的朋友到知道:编写宏代码时,如果代码一多,就觉得杂乱无章,没有条理性.如何进行代码自动缩进,就成了紧迫的问题. 下面就介绍实现此功能的DLL文件的编译过程: 编译环境:vb6.0,office2000,Excel2000 编译步骤: (一)把下面代码保存为Connect.Dsr文件: VERSION 5.00 Begin {AC0714F6-3D04-11D1-AE7D-00A0C90F26F4} Connect ClientHeight = 6300 ClientLeft = 1740 ClientTop = 1545 ClientWidth = 11130 _ExtentX = 19632 _ExtentY = 11113 _Version = 393216 Description = Add-In Project Template DisplayName = My Add-In AppName = Microsoft Excel AppVer = Microsoft Excel 9.0 LoadName = Startup LoadBehavior = 3 RegLocation = HKEY_CURRENT_USER\Software\Microsoft\Office\Excel End Attribute VB_Name = Connect Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = True Attribute VB_PredeclaredId = False Attribute VB_Exposed = True Option Explicit Private WithEvents sj1 As Office.CommandBarButton Attribute sj1.VB_VarHelpID = -1 Private Sub AddinInstance_OnConnection(ByVal Application As Object, ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, ByVal AddInInst As Object, custom() As Variant) On Error Resume Next Set xlapp = Application =================================在我的的工具工具栏创建试验按钮1================================== xlapp.CommandBars(tools).Controls(代码缩进).Delete Set sj1 = xlapp.CommandBars(tools).Controls.Add(Type:=msoControlButton) With sj1 .Caption = 代码缩进 .Style = msoButtonIconAndCaption End With End Sub Private Sub AddinInstance_OnDisconnection(ByVal RemoveMode _ As AddInDesignerObjects.ext_DisconnectMode, custom() As Variant) On Error Resume Next AddinInstance_Terminate End Sub Private Sub AddinInstance_Terminate() On Error Resume Next xlapp.CommandBars(tools).Controls(代码缩进).Delete Set xlapp = Nothing End Sub Private Sub sj1_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean) IndentCode End Sub (二) 把下面代码保存为ModIndentCod