Une classe de Tableau pour Open Office

Question

Bonjour,
J'ai besoin de tracer un tableau dans le traitement de texte d'open office.  
En définissant son nombre de ligne et de colonnes.
Pour le moment, j'arrive à avoir un tableau avec 2 lignes et 2 colonnes avec ce bout de code (parti en rouge):

Public ServiceManager As Object
Public Desktop As Object
Public objDocument As Object
Public objtext As Object
Public Cursor As Object
Public ObjTable As Object
Private Sub Form_Load()
Call DebutOOo

End Sub
Public Sub DebutOOo()
Dim dispatcher As Object
Dim args()
Dim args1(3)
    Unload Form1
    Pourcent = 99
    ' Création de l'objet Openoffice.org
    Set objServiceManager = CreateObject("com.sun.star.ServiceManager")
    ' Create the Desktop
    Set objDesktop = objServiceManager.createInstance("com.sun.star.frame.Desktop")
    ' Ouverture d'un nouveau document texte
    Set objDocument = objDesktop.loadComponentFromURL("private:factory/swriter", "_blank", 0, args)
    ' Création d'un objet texte
    Set objtext = objDocument.GetText
    Set Cursor = objtext.createTextCursor
    
    objtext.insertstring Cursor, "Test de message", False
    objtext.insertstring Cursor, vbLf, False
    Cursor.CharWeight = 150 'Gras(100 pour normal)
    Cursor.CharPosture = 2 '(italique)  spécifier 0 pour normal
    Cursor.CharUnderline = 1 'soulignement simple
    objtext.insertstring Cursor, "Test de message2", False 'Taper une chaine de caractère en live
    objtext.insertstring Cursor, vbLf, False 'Saut de Ligne
    objtext.insertstring Cursor, Pourcent, False 'Taper du texte contenu dans une variable
    objtext.insertstring Cursor, Chr$(9), False 'Insérer une tabulation
    objtext.insertstring Cursor, Pourcent, False
    objtext.insertstring Cursor, vbLf, False
    Set ObjTable = objDocument.createInstance("com.sun.star.text.TextTable") 'Créer un tableau
    'Table.Initialize (3, 1)
    objtext.insertTextContent Cursor, ObjTable, False 'Afficher le tableau créé
   
    objtext.insertstring Cursor, vbLf, False
    Set cellule = ObjTable.getCellByPosition(1, 1)
    cellule = "Test de case"

With objtext
    .insertstring Cursor, Pourcent, False
    .insertstring Cursor, vbLf, False
End With
End Sub

koriteki · Answer

Personne n'a la moindre idée?
Quitte à passer par la création d'une classe d'objet

Une classe de Tableau pour Open Office

1 réponse

Votre réponse

Discussions similaires