Use keywords to indent nested structures in Excel

... in C/C++

so I'll have to wait till tomorrow to view the macro and learn from it.

If I get cross-eyed going through the 60 pages, and accidentally skip a small H33, F33 combo, or maybe I just skip more than one header/footer. So I've labeled incorrectly. How to recover from this if I don't realize this until I get to the end of the doc?

If you have a stack in your VBA

Scanning the table:...

data1
20 first header
data2
33 second header
data3
55 footer associated with second header
data4
77 footer associated with first header
data5

Select allOpen in new window

Find first header; push 20 onto stack. Stack looks like:
20

Select allOpen in new window

Find second header; push 33 onto stack. Stack looks like:
33
20

Select allOpen in new window

Find a footer keyword - do these 4 steps:
1. record the row number of the footer.
55 = footer row #

2. Extract the row number at the top of the stack to get the row number of the associated header:
33 = header row #

3. Pop the stack; Stack now looks like:
20

4. Indent from (Header row # + 1) to (footer row # -1); that is
Indent from (33  + 1) to (55 -1)
Indent from (34)      to (54)

Select allOpen in new window

Find a footer keyword - do these 4 steps:
1. record the row number of the footer.
77 = footer row #

2. Extract the row number at the top of the stack to get the row number of the associated header:
20 = header row #

3. Pop the stack; Stack now looks like:
<<empty>>

4. Indent from (Header row # + 1) to (footer row # -1); that is
Indent from (20  + 1) to (77 -1)
Indent from (21)      to (76)

Select allOpen in new window

data1
first header
    data2
    second header
        data3
    footer associated with second header
    data4
footer associated with first header
data5

Select allOpen in new window

These numbers are kept internally in the macro...

1st header
data
2nd header
data
3rd header
4th header
data
4th footer
data
3rd footer
data
data
5th header
data
6th header
data
6th footer
5th footer
data
2nd footer
data
data
1st footer

Select allOpen in new window

1  1st header
2  data
3  2nd header
4  data
5  3rd header
6  4th header
stack:        6
              5
              3
              1
7  data
8  4th footer: Indent (6+1) to (8-1):: (7) to (7):: i.e., one line is indented
stack:        5
              3
              1
9  data
10 3rd footer: Indent (5+1) to (10-1):: (6) to (9):: i.e., indent 4 lines
11 data

Select allOpen in new window

1  1st header
2  data
3  2nd header
4  data
5  3rd header
6      4th header
7          data
8      4th footer
9      data
10 3rd footer
11 data
12 data

Select allOpen in new window

...Begin
Begin
...If
Start of
For

Select allOpen in new window

...End
End

Select allOpen in new window

Begin
End

Select allOpen in new window

The attached spreadsheet has a sheet called "Labels". Column A shows typical keywords and expressions that denote the start of a nested data structure, and Column B denotes the end of that data structure.

begin
if
loop

Select allOpen in new window

end

Select allOpen in new window

The data is already indented

The operation will cause some merged cells to unmerge. Do you wish to continue?

Unable to set the ColumnWidth property of the Range class.

The data is already indented

The data is already indented

I added the tags manually, and hit Manual Indent. Weird popup...

->> The data is already indented
Which operations can produce this message?

I can ask another question similar to this but without the extra complexity of having some columns merged and other columns not merged.

How do you use the chr(13) to do the global replace?

To avoid confusion on my part

With as simple a problem as this one, your stack structure can be an integer variable.  You might indent as you iterate the rows.

Private Sub Elip()
    Dim lIndentLevel As Long
    Dim oCell As Range
    Dim sVal As String
    Dim sTrim As String
    
    Application.ScreenUpdating = False
    
    For Each oCell In Worksheets("Fix").UsedRange.Columns(1).Cells
        sVal = LCase(CStr(oCell.Value))
        ' look for horizontal ellipse
        If InStr(1, sVal, Chr(133)) > 0 Then
            sVal = "..." & Mid$(sVal, 2)
            If Mid(sVal, 4, 1) = " " Then
                ' Delete one or more spaces following the 3 periods
                Do
                Loop Until Mid(sVal, 4, 1) = " "
            End If
        End If

        If sVal Like "?end*" Or sVal Like "???end*" Or sVal Like "end*" Then
            lIndentLevel = lIndentLevel - 1
        End If
        If lIndentLevel < 0 Then lIndentLevel = 0
        If lIndentLevel > 0 Then
            oCell.Resize(, lIndentLevel).Insert xlToRight
        End If
        If (sVal Like "?begin*" Or sVal Like "begin*" Or sVal Like "???begin*" _
            Or sVal Like "?if *" Or sVal Like "if *" Or sVal Like "???if *" _
            Or sVal Like "?for *" Or sVal Like "for *" Or sVal Like "???for *") Then
            lIndentLevel = lIndentLevel + 1
        End If
    Next
    
    Application.ScreenUpdating = True
    
End Sub

Select allOpen in new window

Begin repeated for
Begin for each
End repeat for
If
End if
Begin If

Select allOpen in new window

End repeat for each parameter...End repeat for each parameter

Select allOpen in new window