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 Long Dim LineText As String Dim ProcName As String, KeyWord As Stri…