Hallo Stephan,
habe mal versucht ein Unterscheidungsmerkmal zu finden, indem ich die Eigenschaften der Bereiche per
XRAY-Difference-Checker miteinander verglichen habe.
Die Verzeichnisse haben die Eigenschaft
.GlobalDocumentSections, die aber wiederum
.ChildSections ohne diese Eigenschaft haben können.
Mit folgendem Makro fange ich eine Ebene der Childsections ab, finde damit die "Sonstigen Bereiche", alle anderen müssten dann die eingefügten sein.
Ohne Gewähr.
Code: Alles auswählen
Sub get_GlobalDocumentSections
dim sNames(0) as String
oSections = thisComponent.TextSections
nCounter = 0
for i = 0 to oSections.count - 1
oSection = oSections.getbyIndex(i)
if oSection.IsGlobalDocumentSection then
redim Preserve sNames(nCounter)
sNames(nCounter) = oSection.Name
ncounter = ncounter + 1
if not isEmpty (oSection.ChildSections) then
for j = 0 to Ubound(oSection.ChildSections)
redim Preserve sNames(nCounter)
oChildSection = oSection.ChildSections(j)
sNames(nCounter) = oChildSection.Name
ncounter = ncounter + 1
next j
endif
endif
next i
sText = "Die folgenden Bereiche sind ""sonstige Bereiche""" +chr(10)+chr(10)+Join(sNames,(","+chr(10))
MSGBOX (sText,64,"Auswertung der Bereiche")
End Sub
Gruß R