Discussion :

[StephBretagne]

Bonjour à tous,

J'ai une utilisation un peu particulière de LO writer : il me sert de tableau numérique en classe. A la fin de chaque cours, je note les devoirs à faire dans un rectangle jaune encadré de noir.
J'ai donc créé un style de paragraphe. Mais ce n'est pas pratique parce que si je passe à la ligne, cela créé un nouveau paragraphe et donc un nouveau rectangle. Solution pratique : créer un tableau d'une seule cellule avec le style que j'ai défini.
Je fais cela des dizaines de fois par semaine; cela devient pénible à force.

Donc, j'ai essayé de créer une macro. Mais avec les tableaux c'est compliqué. Je ne me souviens plus comment j'ai réussi à créer la macro suivante qui fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
sub Tab_2_col
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
 
rem ----------------------------------------------------------------------
dim args1(4) as new com.sun.star.beans.PropertyValue
args1(0).Name = "TableName"
args1(0).Value = "Tableau8"
args1(1).Name = "Columns"
args1(1).Value = 2
args1(2).Name = "Rows"
args1(2).Value = 1
args1(3).Name = "Flags"
args1(3).Value = 8
args1(4).Name = "AutoFormat"
args1(4).Value = "Aucun"
 
dispatcher.executeDispatch(document, ".uno:InsertTable", "", 0, args1())
 
 
end sub

J'ai essayé de la modifier de la façon suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
sub Tab_deberes
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dim args1(4) as new com.sun.star.beans.PropertyValue
args1(0).Name = "TableName"
args1(0).Value = "Tableau8"
args1(1).Name = "Columns"
args1(1).Value = 1
args1(2).Name = "Rows"
args1(2).Value = 1
args1(3).Name = "Flags"
args1(3).Value = 8
args1(4).Name = "A-deberes"
args1(4).Value = "Aucun"
 
dispatcher.executeDispatch(document, ".uno:InsertTable", "", 0, args1())
 
 
end sub

Mais cela ne fonctionne pas.

Une idée ?

Merci d'avance pour vos lumières.

[Mobydick_62]

Bonjour, un exemple pour insérer un tableau.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 Sub InsertionTableau()
  Dim oDoc As Object, oTable As Object, oText As Object, oCurseur As Object 
  oDoc = ThisComponent
  oTable = oDoc.createInstance("com.sun.star.text.TextTable")
  oText = oDoc.Text
  oCurseur = oText.createTextCursor 
  With oTable
   .initialize(5,3)' nombre de : lignes, colonnes
   .Name = "monTableau"
   .HoriOrient = com.sun.star.text.HoriOrientation.FULL 'Aligner sur toute la largeur.  RIGHT = tout à droite
   .IsWidthRelative = true
   .RelativeWidth = 30 
  End With
  oText.insertTextContent(oCurseur, oTable, false)
 End Sub
 
 
[ATTACH]648026[/ATTACH]

Cordialement

[Amélie Ladoque]

Plutôt qu'une macro dont a priori, vous ne maîtrisez pas la programmation, utilisez un AutoTexte.
https://wiki.openoffice.org/wiki/FR/...ide/AutoTextes

Ce sera nettement plus simple

[StephBretagne]

Bonjour et merci beaucoup pour vos réponses à tous les deux !

Alors, je n'avais pas pensé aux auto textes et le lien fourni m'a laissé pensé que ça ne fonctionnait pas parce que je suis dans le genre à suivre à la lettre, si on me dit de cliquer sur " Nouveau (texte seulement)", c'est ce que je fais.
Mais bien sûr, un tableau vide, ce n'est pas seulement du texte... Du coup, en cliquant sur "Nouveau", ça fonctionne super bien et surtout cela m'ouvre de nombreuses portes qui vont m'être bien utiles.

Petite question, y a-t'il moyen de choisir cet auto texte particulier pour le faire apparaître dans la barre d'outils ?
Après recherches infructueuses, j'ai créé une petite macro qui, elle, peut être ajoutée à la barre d'outils (mais y'a peut-être plus simple).

En tous cas, merci Amélie pour cette nouvelle découverte

[Amélie Ladoque]

auto texte particulier pour le faire apparaître dans la barre d'outils

https://forum.openoffice.org/fr/foru...tils+autotexte

[StephBretagne]

Merci Amélie pour ta réponse.
Donc, mes propres recherches m'avaient amené à la même conclusion, la seule solution, c'est une petite macro, c'est ce que j'ai fait.

Merci à tous et bonnes fêtes