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