Come impostare lo stile nella stringa di testo di MS Word tramite AppleScript?

Mi piacerebbe trovare un modo per cambiare lo stile di intestazione 1 di una particolare stringa di testo che sto aggiungendo in un documento MS Word usando Applescript, ma dopo ore di ricerca e guardando il dizionario, non posso trovare un modo per farlo. Qualcosa del genere:

    tell application "Microsoft Word"
    activate
    tell active document
        set ContTemp to content of text object
        set StartRange to (count of ContTemp) - 1
        set endrange to StartRange
        set theRange to create range start StartRange end endrange
        set style of format of theRange to style heading1
        set content of theRange to StringVar
    end tell
end tell

Ma genera un errore in "stile di formato impostato di theRange.". Rimozione di quelle linee singole funziona per aggiungere il testo StringVar (una stringa di testo semplice) nel documento di Word. Ma non posso modificarlo, e ho bisogno di impostarlo su heading1.

Grazie per l'aiuto !!