Delphi OpenOffice automation scalc center cell text -

Hello Anyone can help me with the following: I'll send text through Delphi in a Scalek Open Office spreadsheet cell I want to focus on the OOoTools Toolkit.

The following code does not work:

  sRange: = '$ A $ 3: $ A $ 3'; Ooperm: = Createunocostructure ('com.sun.star.beans.PropertyValue', 1); Ooparam [0] .name: = 'ToPoint'; Ooparam [0]. Price: = Range; ExecDispatch ('.uno: GoToCell', Ooprum); Ooperm: = Createunocostructure ('com.sun.star.beans.PropertyValue', 1); Ooparam [0] .name: = 'horizontal justification'; Ooparam [0]. Value: = 'com.sun.startable.cellhostify.exe'; ExecDispatch ('.Upon: Horizontal Justification', Ooprum);  

Why do not anyone have any ideas? It seems that horizontal justification needs a value, but you're giving a string. You will need to see the value of com.sun.star.table.CellHoriJustify.CENTER and your ooParams [0]. Fill it with the value .

Here's a way to see an envival:

In your case, com.sun.star.table.CellHoriJustify.CENTER equals 2, so that you Required:

Ooperm [0] .name: = 'horizontal justification'; Ooparam [0]. Value: = 2;