If ActiveDoc = 0
  MsgBox 'Kein aktives Dokument.'; 
  LeaveSub;
Else
  Set vCurrentDoc = ActiveDoc;
EndIf
New StringList NewVar(vCondFmts);
New IntList NewVar(vCondFmtQtys);
Loop ForEach(CondFmt) In(vCurrentDoc) LoopVar(vCondFmt)
  Add Member(vCondFmt.Name) To(vCondFmts);
  Add Member(0) To(vCondFmtQtys);
EndLoop

// Display vCondFmts;
// Display vCondFmtQtys;

New IntList NewVar(vFoundCondFmts);
Set vPgf = vCurrentDoc.FirstPgfInDoc;
Loop While(vPgf)
 Get TextList InObject(vPgf) CharPropsChange NewVar(vTextList);
 Loop While(vCounter <= vTextList.Count) LoopVar(vCounter)
        Init(1) Incr(1)
  Get Member Number(vCounter) From(vTextList) NewVar(vPropList);
  Find Member('CONDITIONTAG') InList(vPropList.TextData)
          ReturnStatus(vFound);
  If vFound
     New TextLoc NewVar(vTextLoc) Object(vPgf)
             Offset(vPropList.TextOffset);
     Get TextProperties TextLoc(vTextLoc) NewVar(vTextProps);
     Loop While(vCounter2 <= vTextProps.InCond.Count)
             LoopVar(vCounter2) Init(1) Incr(1)
       Get Member Number(vCounter2) From(vTextProps.InCond)
               NewVar(vCondInt);
       Add Member(vCondInt) To(vFoundCondFmts);
     EndLoop
   EndIf
 EndLoop

 Set vPgf = vPgf.NextPgfInDoc;
EndLoop

// Display vFoundCondFmts;

Loop While(vCounter3 <= vFoundCondFmts.Count) LoopVar(vCounter3)
        Init(1) Incr(1)
  Get Member Number(vCounter3) From(vFoundCondFmts)
          NewVar(vFoundCondFmt);
 New Object IntValue(vFoundCondFmt) DocObject(vCurrentDoc)
          NewVar(vCondFmtObj);
  Run IncrementCounter Using vCondFmtName(vCondFmtObj.Name);
EndLoop

Run ReportCount Using vNameList(vCondFmts)
  Using vCountList(vCondFmtQtys)
  Using vObject(vCurrentDoc.Name)
  Using vItem('Condition formats');



Sub IncrementCounter
//
Find Member(vCondFmtName) InList(vCondFmts) ReturnPos(vPos);
Get Member Number(vPos) From(vCondFmtQtys) NewVar(vQty);
Set vQty = vQty + 1;
Replace Member Number(vPos) In(vCondFmtQtys) With(vQty);
//
EndSub


Sub ReportCount
//
Write Console '*** '+vItem+' in '+vObject+':';
// Diese Schleife gibt die Informationen im Konsolenfenster aus.
Loop While(vCounter4 <= vNameList.Count) LoopVar(vCounter4)
        Init(1) Incr(1)
  Get Member Number(vCounter4) From(vNameList) NewVar(vName);
  Get Member Number(vCounter4) From(vCountList)
          NewVar(vCount);
  Write Console vName+' wird '+vCount+
          ' Mal im Dokument verwendet.';
EndLoop
//
EndSub