tell document 1 of application "QuarkXPress Passport" 
    -- erstellt eine Auflistung aus uniqueID, Name 
    -- (einmalige Vorbereitung) 
    set specList to {} 
    repeat with i from 1 to count of style specs 
        set askStyle to i 
        set tmpSpec to "" 
        set tmpSpec to tmpSpec & uniqueID of style spec askStyle & " " 
        set tmpSpec to tmpSpec & name of style spec askStyle 
        set end of specList to tmpSpec 
    end repeat 
    -- jetzt wird die Liste nach uniqueID sortiert und die uniqueID wieder entfernt 
    set AppleScript's text item delimiters to (ASCII character 10) 
    set IDList to (do shell script "sort  -n <<< " & quoted form of (specList as text)) 
    set AppleScript's text item delimiters to {""} 
    set IDList to (change (ASCII character 10) into return in IDList) 
    set nameList to (change "^[0-9]+ " into "" in IDList with regexp) 
     
    -- beispielhaft mit einer Textbox 
    tell current box 
        set allIndex to (index of style sheet) of every paragraph 
        set allPara to {} 
        repeat with i from 1 to length of allIndex 
            set curIndex to item i of my allIndex 
            set end of allPara to text of paragraph curIndex of nameList 
        end repeat 
    end tell 
     
end tell 

tell document 1 of application "QuarkXPress Passport" 
    -- prüfen, ob Stilvorlagen gelöscht wurden, und Ersatzstilvorlagen anlegen 
    -- (Anzahl Stilvorlagen ist kleiner als die höchste uniqueID) 
    set allID to uniqueID of every style spec -- alle vorhandenen uniqueID in eine Liste 
    set cntStyles to count style spec 
    set AppleScript's text item delimiters to "\n" 
    -- ID sortieren 
    set allID to paragraphs of (do shell script "sort -u <<< " & quoted form of (allID as text)) 
    set AppleScript's text item delimiters to {""} 
    set greatestID to (item -1 of allID) as number 
    if (greatestID is greater than cntStyles) then -- wenn Stilvorlagen gelöscht und nicht ersetzt wurden 
        repeat with i from 1 to length of allID 
            if ((i as string) is not in allID) then -- fehlende ID aufspüren 
                set newStyleName to "z_tmp" & i 
                make style spec at beginning with properties {name:newStyleName} -- Ersatzstil anlegen 
            end if 
            if (greatestID is equal to cntStyles) then 
                exit repeat 
            end if 
        end repeat 
    end if 
     
    -- erstellt eine Auflistung aus uniqueID, Name 
    -- (einmalige Vorbereitung) 
    set specList to {} 
    repeat with i from 1 to count of style specs 
        set askStyle to i 
        set tmpSpec to "" 
        set tmpSpec to tmpSpec & uniqueID of style spec askStyle & " " 
        set tmpSpec to tmpSpec & name of style spec askStyle 
        set end of specList to tmpSpec 
    end repeat 
    -- jetzt wird die Liste nach uniqueID sortiert und die uniqueID wieder entfernt 
    set AppleScript's text item delimiters to (ASCII character 10) 
    set IDList to (do shell script "sort  -n <<< " & quoted form of (specList as text)) 
    set AppleScript's text item delimiters to {""} 
    set IDList to (change (ASCII character 10) into return in IDList) 
    set nameList to (change "^[0-9]+ " into "" in IDList with regexp) 
     
    -- beispielhaft mit einer Textbox 
    tell current box 
        set allIndex to (index of style sheet) of every paragraph 
        set allPara to {} 
        repeat with i from 1 to length of allIndex 
            set curIndex to item i of my allIndex 
            if (curIndex is equal to 0) then 
                set end of allPara to "Kein Stil" 
            else 
                set end of allPara to text of paragraph curIndex of nameList 
            end if 
        end repeat 
    end tell 
     
end tell 
allPara 

tell document 1 of application "QuarkXPress Passport" 
   set nameList to name of every style spec 
end tell