Creating table in MS Word document via OLE: how can I specify column width

Question

What method and properties do I need to use in order to specify the width of each column in a MSWord table created via ABAP using OLE ?  Or, better yet, how can I create a table where the columns are sized using the Autofit feature?
I am already familiar with the standard sample code for creating a word document that contains a table (found in ZOLE_WORD_DOC_CREATE).
Tom Eshelman

Answer 1

I found a solution - although I would still be interested if anyone knows how to turn on autofit when creating a table,  The following code can be used to specify the width of one cell at the same time it is filled with data.  I found this in an old SDN posting.
FORM write_cell_in_table  USING    p_row
                                   p_col
                                   p_text
                                   p_font
                                   p_size
                                   p_bold
                                   p_color
                                   p_width
                                   p_underline.
                                  P_ALIGNMENT.
  DATA: l_len TYPE i.
  l_len = STRLEN( p_text ).
  IF l_len IS INITIAL.
    l_len = 1.
  ENDIF.
*--Getting cell coordinates
  CALL METHOD OF gs_table 'Cell' = gs_cell
  EXPORTING : #1 = p_row "first row
              #2 = p_col. "first column
*--Getting the range handle to write the text
  GET PROPERTY OF gs_cell 'Range' = gs_range .
  IF p_width > 0 AND l_len > 1.
    SET PROPERTY OF gs_cell 'PreferredWidth' = p_width.
  ENDIF.
*--Filling the cell
  GET PROPERTY OF gs_range 'Font' = gs_font .
  SET PROPERTY OF gs_font 'Name' = p_font .
  SET PROPERTY OF gs_font 'Size' = p_size .
  SET PROPERTY OF gs_font 'Bold' = p_bold . "Not bold
  SET PROPERTY OF gs_font 'Underline' = p_underline . "Double line
  GET PROPERTY OF gs_cell 'Shading' = gs_shading .
  SET PROPERTY OF gs_shading 'BackgroundPatternColorIndex' = p_color.
  SET PROPERTY OF gs_range 'Text' = p_text(l_len) .
ENDFORM.                    " write_cell_in_table