Comment définir le style dans une chaîne de texte de MS Word via AppleScript ?

J'aimerais trouver un moyen de modifier le style de l'en-tête 1 d'une chaîne de texte particulière que j'ajoute dans un document MS Word à l'aide d'Applescript, mais après des heures de recherche, et après avoir consulté le dictionnaire, je ne trouve pas le moyen de le faire. Quelque chose comme ceci :

    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

Mais il génère une erreur à "set style of format of theRange. . . ". La suppression de cette ligne unique permet d'ajouter le texte StringVar (une simple chaîne de texte) dans le document Word. Mais je ne peux pas lui donner un style, et j'ai besoin qu'il soit défini en tant que rubrique 1.

Merci pour l'aide !