rtContainer	sections
rtContainer All As rtCollection BeginInsert containsStyle defineLabel defineLabelAsText docLinks As rtEnumeration hasContent hotspots As rtEnumeration ID ParentObject sections As rtEnumeration Style As rtStyle tables As rtEnumeration textRuns As rtEnumeration add addAfter addNewLine As rTextParagraph addPageBreak As rTextParagraph appendItemValue appendStyle appendText As rTextParagraph AddBefore AddCollection contains createTextRange As rTextRange Collection As rtCollection Count EndInsert Find As rTextRange FindNext As rTextRange getFirstElement getLastElement getNextElement getPrevElement getRichTextItem getText importRTF New remove replaceItemValue root As rtContainer Replace SetStyle	version 1.5 Property Get sections As rtEnumeration Returns rtEnumeration object that contains all rtSection objects in scope. The objects are returned in same order as in item/container. In case of embedded objects first returned is parent object then all child objects. In case any of child objects contain embedded objects itself they are always returned before the next sibling. Dim obj as Variant, enum as rtEnumeration set enum = ctx.TextRuns Do while enum.hasMoreElements set obj = enum.nextElement ... do something to the returned object Loop Process sections