10.3.29 HasParagraphFormat
Die Funktion liefert die Anzahl der Textteile eines Absatzes zurück. Jeder Textteil steht für eine eigene Formatierung. Ist der Rückgabewert 1, besteht der Absatz nur aus einer Formatierung.

function hasParagraphFormat( oPara as object) as integer
  Dim enumTextTeile as object
  Dim i as integer
  Dim Dummy as object
  i=0
       enumTextTeile=oPara.createEnumeration
            while  enumTextTeile.hasMoreElements
               Dummy = enumTextTeile.nextElement
                i=i+1
            wend 
  hasParagraphFormat=i          
end function