How can I customize Microsoft Word Outline Numbered List Templates with AppleScript?

Question

I wrote an applescript to set up a word document with the appropriate styles to give the document an academic setup, much like what Xelatex produces. This is a work in progress and I have a problem.
I have successfully applied the style changes to each Header and I have applied the desired outline numbered list template "list template 5 of list gallery 3", however I would like to add tab stops to each one in order to make each header look slick like in Latex.
To do what I want manually in Microsoft Word 2011 mac I would click Bullets and Numbering, customize, under text position i would check the tab stop box and put in some value (1 cm, for example)
The following is an approximation of the result of running this script on a document with headings 1-9 applied consequently to each line, respectively. Note how they are not even. I think this is an issue with the template, but I want to be able to run this script on any mac without extra template files.
1    Heading 1
1.1    Heading 2
1.1.1    Heading 3
1.1.1.1    Heading 4
1.1.1.1.1    Heading 5
1.1.1.1.1.1 Heading 6
1.1.1.1.1.1.1        Heading 7
1.1.1.1.1.1.1.1Heading 8
1.1.1.1.1.1.1.1.1 Heading 9
Here is the script so far:
Academic Paper Setup
Copyright © 2012 macmadness86
Just kidding there is no copyright. Open Source rules!
You may use this code however you like. It would be nice
if you made reference to the original code when sharing.
THINGS TO DO:
find a fix for changing font color of headings without hardcoding it.
fix headings 4-9
(*<Properties to be set by the user*)
--number suffix corresponds to heading 1, heading 2, etc.
--NOTE: To change the coloring of headings, it must be hardcoded. must find a fix.
property fontName1 : "CMU Serif Roman"
property fontName2 : "CMU Serif Roman"
property fontName3 : "CMU Serif Roman"
property fontName4 : "CMU Serif Roman"
property fontName5 : "CMU Serif Roman"
property fontName6 : "CMU Serif Roman"
property fontName7 : "CMU Serif Roman"
property fontName8 : "CMU Serif Roman"
property fontName9 : "CMU Serif Roman"
property fontSize1 : 15
property fontSize2 : 14
property fontSize3 : 13
property fontSize4 : 12
property fontSize5 : 12
property fontSize6 : 12
property fontSize7 : 12
property fontSize8 : 12
property fontSize9 : 12
property boldTF : true
property italicTF : false
property highlightTF : false
(*Properties to be set by the user>*)
tell application "Microsoft Word"
    tell active document
        (*<normal code BLOCK*)
        set name of font object of Word style style normal to "CMU Serif Roman"
        set font size of font object of Word style style normal to 12
        set bold of font object of Word style style normal to false
        set italic of font object of Word style style normal to false
        set color index of font object of Word style style normal to black
        (*normal code BLOCK>*)
        (*<heading 1 code BLOCK*)
        set name of font object of Word style style heading1 to fontName1
        set font size of font object of Word style style heading1 to fontSize1
        set bold of font object of Word style style heading1 to boldTF
        set italic of font object of Word style style heading1 to italicTF
        set color index of font object of Word style style heading1 to black
        --set paragraph format left indent of paragraph format of Word style style heading1 to (centimeters to points centimeters 0) --indent sections relative to margin
        --set tab stop position of tab stop of Word style style heading1 to (centimeters to points centimeters 1)
        --set tab hanging indent of paragraph format of Word style style heading1 to count 1
        (*heading 1 code BLOCK>*)
        (*<heading 2 code BLOCK*)
        set name of font object of Word style style heading2 to fontName2
        set font size of font object of Word style style heading2 to fontSize2
        set bold of font object of Word style style heading2 to boldTF
        set italic of font object of Word style style heading2 to italicTF
        set color index of font object of Word style style heading2 to black
        (*heading 2 code BLOCK>*)
        (*<heading 3 code BLOCK*)
        set name of font object of Word style style heading3 to fontName3
        set font size of font object of Word style style heading3 to fontSize3
        set bold of font object of Word style style heading3 to boldTF
        set italic of font object of Word style style heading3 to italicTF
        set color index of font object of Word style style heading3 to black
        (*heading 3 code BLOCK>*)
        (*<heading 4 code BLOCK*)
        set name of font object of Word style style heading4 to fontName4
        set font size of font object of Word style style heading4 to fontSize4
        set bold of font object of Word style style heading4 to boldTF
        set italic of font object of Word style style heading4 to italicTF
        set color index of font object of Word style style heading4 to black
        (*heading 4 code BLOCK>*)
        (*<heading 5 code BLOCK*)
        set name of font object of Word style style heading5 to fontName5
        set font size of font object of Word style style heading5 to fontSize5
        set bold of font object of Word style style heading5 to boldTF
        set italic of font object of Word style style heading5 to italicTF
        set color index of font object of Word style style heading5 to black
        (*heading 5 code BLOCK>*)
        (*<heading 6 code BLOCK*)
        set name of font object of Word style style heading6 to fontName6
        set font size of font object of Word style style heading6 to fontSize6
        set bold of font object of Word style style heading6 to boldTF
        set italic of font object of Word style style heading6 to italicTF
        set color index of font object of Word style style heading6 to black
        (*heading 6 code BLOCK>*)
        (*<heading 7 code BLOCK*)
        set name of font object of Word style style heading7 to fontName7
        set font size of font object of Word style style heading7 to fontSize7
        set bold of font object of Word style style heading7 to boldTF
        set italic of font object of Word style style heading7 to italicTF
        set color index of font object of Word style style heading7 to black
        (*heading 7 code BLOCK>*)
        (*<heading 8 code BLOCK*)
        set name of font object of Word style style heading8 to fontName8
        set font size of font object of Word style style heading8 to fontSize8
        set bold of font object of Word style style heading8 to boldTF
        set italic of font object of Word style style heading8 to italicTF
        set color index of font object of Word style style heading8 to black
        (*heading 8 code BLOCK>*)
        (*<heading 9 code BLOCK*)
        set name of font object of Word style style heading9 to fontName9
        set font size of font object of Word style style heading9 to fontSize9
        set bold of font object of Word style style heading9 to boldTF
        set italic of font object of Word style style heading9 to italicTF
        set color index of font object of Word style style heading9 to black
        (*heading 9 code BLOCK>*)
    end tell
    (*<apply numbering to the sections code BLOCK*)
    set selFind to find object of selection --selects text of execute find command
    clear formatting selFind --reset selFind just to make sure
    set style of selFind to style heading1 --set style we are looking for
    execute find selFind find text "" wrap find find continue with find format and match forward
    if found of selFind is true then
        --display dialog (get content of text object of selection) --for debugging only
        (*<code BLOCK word__set paragraph style*)
        --I apply the formatting to the previously found text
        set myLT to list template 5 of list gallery 3 of active document
        apply list format template (list format of text object of selection) ¬
            list template myLT
    end if
    (*Apply numbering to the sections code BLOCK>*)
end tell

Answer 1

I figured it out . Just in case anyone else wants to know the script is below:
tell application "Microsoft Word"
    set myTable to table 1 of selection
    convert to text myTable separator separate by tabs
end tell