Hi,
I have a Problem by creating a Word-Table using the OLE2-Interface!
I created the Table with 5 rows and 3 columns. Everything perfect 😊
But now I want to Resize the first Column. My Code is the following:
CREATE OBJECT o_word 'Word.Application'. SET PROPERTY OF o_word 'Visible' = '1'. GET PROPERTY OF o_word 'Documents' = o_documents. CALL METHOD OF o_documents 'Add' EXPORTING #1 = 'normal.dot'. GET PROPERTY OF o_word 'ActiveDocument' = o_actdoc. GET PROPERTY OF o_word 'Selection' = o_selection. GET PROPERTY OF o_actdoc 'Tables' = o_tables. GET PROPERTY OF o_selection 'Range' = o_range. CALL METHOD OF o_tables 'Add' = o_table EXPORTING #1 = o_range #2 = '5' #3 = '3'. GET PROPERTY OF o_selection 'Columns' = o_column. CALL METHOD OF o_column 'SetWidth' EXPORTING #1 = '196.8' #2 = '0'.
Unfortunately nothing happened 😔
Can anyone help me?
The VB Code to Set the Width of a column is:
Selection.Tables(1).Columns(1).SetWidth ColumnWidth:=196.8, RulerStyle:=wdAdjustNone