Makros und Tools

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.

Basic

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