Controler writer en utilisant automation OLE

Bonjour à tous,

je souhaiterai écrire dans une ficher texte qui est dans Writer en utilisant les possibilités qui sont offertes pas l’automation OLE.
J’utilise le langage delphi.
J’arrive à ouvrir un document type .odt
ensuite j’utilise oTable := oDocument.createInstance(‘com.sun.star.text.TextTable’)

      oTable.initialize(1,4);
      oTable.setPropertyValue('HoriOrient', 7); // LEFT_AND_WIDTH
      oTable.setPropertyValue('IsWidthRelative', true);
      oTable.setPropertyValue('RelativeWidth', 50);
      oTable.setPropertyValue('BackColor', $80); // fond bleu

      oDocument.getText.insertTextContent(oDocument.getText.CreateTextCursor, oTable, False);

      oTable.getCellByPosition(0, 0).CreateTextCursor.setString(OleVariant('First'));
      oTable.getCellByPosition(1, 0).CreateTextCursor.setString(OleVariant('2'));
      oTable.getCellByPosition(2, 0).CreateTextCursor.setString(OleVariant('3'));
      oTable.getCellByPosition(3, 0).CreateTextCursor.setString(OleVariant('4'));

Je ne vois que la première colonne s’afficher contenant le texte “First”
Plusieurs questions se posent:

  • Comment modifier la largeur des colonnes ?
  • Comment modifier la position du tableau dans la page ? car le tableau s’affiche en début de document.

Merci