[Résolu] [Writer] Nombre de lignes d'un tableau

Discussions et questions sur tout ce qui concerne la programmation tous langages et tous modules confondus.

Modérateur : Vilains modOOs

Règles du forum
:alerte: Balisage obligatoire dans cette section !
Aidez-nous à vous aider au mieux en balisant correctement votre question : reportez-vous sur les règles de cette section avant de poster !
gregml1972
NOOuvel adepte
NOOuvel adepte
Messages : 24
Inscription : 09 juil. 2015 20:45

[Résolu] [Writer] Nombre de lignes d'un tableau

Message par gregml1972 »

Salut,

Comme je l'ai expliqué dans la section 'Traitement de textes', (https://forum.openoffice.org/fr/forum/v ... 06#p261006)
Le modérateur a écrit :Lien ajouté par la modération
, je souhaiterais savoir s'il est possible d'ouvrir dans un document texte un tableau à 5 lignes et 9 colonnes.

J'ai trouvé ça sur internet:

Code : Tout sélectionner

Sub creertableau
Dim MaTable As Object
MaTable = MonDocument.createInstance("com.sun.star.text.TextTable")
MaTable.initialize(5,9) ' nombre de : lignes, colonnes
MonTexte.insertTextContent(MonCurseur, MaTable, false)
End Sub

Mais, en exécutant (en tapant sur 'Exécuter le BASIC (F5)), je me retrouve avec une fenêtre :

'Erreur d'exécution BASIC.
Variable d'objet non définie'

Auriez-vous une idée de ce qui ne fonctionne pas s'il vous plaît ?

Merci d'avance, Greg
Dernière modification par gregml1972 le 11 juil. 2015 16:44, modifié 1 fois.
Mac OS-X 10.6.8
Mozilla Firefox 39.0
Libre Office 4.1.6.2
Avatar de l’utilisateur
DLE
SuppOOrter
SuppOOrter
Messages : 1477
Inscription : 30 déc. 2007 18:56
Localisation : Lille

Re: [Writer] Nombre de lignes d'un tableau par l'utilisateur

Message par DLE »

Bonjour,

Mondocument, Moncurseur ne sont définis
Code à valider.

Code : Tout sélectionner

Sub creertableau
Dim MaTable As Object
Dim Mondocument As Object
Dim Montexte As Object
Dim Moncurseur As Object
Mondocument = ThisComponent
Montexte = Mondocument.text
Moncurseur = montexte.createTextCursor
MaTable = Mondocument.createInstance("com.sun.star.text.TextTable")
MaTable.initialize(5,9) ' nombre de : lignes, colonnes
MonTexte.insertTextContent(MonCurseur, MaTable, false)
End Sub
A+
MacOS Sonoma 14.4.1 (iMac-Intel) : AOO 4.1.15 , LibreOffice 7.6.5.2, Adoptium-temurinJDK_1.8.0_402 -
Windows 10 64 bits :
AOO 4.1.15, Libreoffice 7.1.8.1 - FireFox, Thunderbird, ORB 1.2.1
gregml1972
NOOuvel adepte
NOOuvel adepte
Messages : 24
Inscription : 09 juil. 2015 20:45

Re: [Writer] Nombre de lignes d'un tableau par l'utilisateur

Message par gregml1972 »

Merci, c'a a super bien marché.
Greg
Mac OS-X 10.6.8
Mozilla Firefox 39.0
Libre Office 4.1.6.2