verify start and end tags

[mdmackillop]

I don't know if this is any help, but here's some rough code to list all the tag codes. I think with a little (maybe a lot) more work you could record the tags and add/reduce a tab count which could produce an indented listing.
Regards
MD

[VBA]Sub Tags()
Dim MyData(100)
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "<"
.Replacement.Text = "xx"
.Forward = True
.Wrap = wdFindContinue
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ">"
.Replacement.Text = "zz"
.Forward = True
.Wrap = wdFindContinue
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.HomeKey Unit:=wdStory

For i = 1 To 99
With Selection.Find
.Text = "xx*zz"
.MatchWildcards = True
.Forward = True
.Wrap = wdFindStop
End With
Selection.Find.Execute
MyData(i) = Mid(Selection.Text, 3, Len(Selection.Text) - 4)
Next
With Selection.Find
.Text = "xx"
.Replacement.Text = "<"
.Forward = True
.Wrap = wdFindContinue
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "zz"
.Replacement.Text = ">"
.Forward = True
.Wrap = wdFindContinue
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Documents.Add
For i = 1 To 100
Selection.TypeText MyData(i) & vbCr
Next
End Sub

[/VBA]