Move Table Column with AppleScript in Microsoft Word

Question

Microsoft Word has a flaw (in my opinion) with tables in that it aligns the left and right text with the margins rather than aligning the table columns with the margins. This results in sloppy tables, because the left and right borderlines lie outside the margins.
I would like to fix the word tables by
calculating the left cell padding and right cell padding in points and setting them to variables {left_pad,right_pad} respectively
move left column by left_pad to the right
move right column by right_pad to the left
The script I was working on does not work, but I will post it to show my thought process as I hone in on my solution.
tell application "Microsoft Word"
    --595 points is width of A4 paper
    -- Set page margin in points to variables
    set {l_margin, r_margin, t_margin, b_margin} to {(get left margin of page setup of active document), get (right margin of page setup of active document), get (top margin of page setup of active document), get (bottom margin of page setup of active document)}
    get {l_margin, r_margin, t_margin, b_margin}
    -- Set specific Paragraph margins
    -- NOTE: If you select a table thinking you wish to drag just the left margin to the right, or the right margin to the left, this code does not accomplish this because each cell has its own paragraph formatting. This code will set the margin for every single cell, because each cell has its own margins! (separate from padding).
    set para_sel to paragraph format of selection
    set paragraph format left indent of para_sel to (centimeters to points centimeters 0.5)
    -- Aligning left and right columns of table with the margins
    -- NOTE: There is a command to set left row indent, but not right row indent (very stupid of Microsoft)
end tell

Answer 1

I have worked up something that seems to work (although I cannot promise it is the best way). Hope it helps anyone else who has this need.
tell application "Microsoft Word"
activate
set findRange to find object of selection
clear formatting findRange -- clear any previous formatting used in a find operation
set forward of findRange to true -- find forward
set style of findRange to "List Bullet" -- the style to look for
tell findRange
set gotIt to execute find find text "" -- do the search w/o matching any text
end tell
if gotIt is true then -- if a match was found
copy object selection -- copy it to the clipboard
set mySelection to (the clipboard) -- then put clipboard into a variable
set myOffset to ¬
(get selection information selection information type ¬
(horizontal position relative to page)) -- now put selection info into a variable
display dialog mySelection & return & (myOffset as text) -- then display it
end if
end tell