Tableau avec lignes indentées

fr-users
#1

Bsr,

J'utilise un tableau de 27 x 1 (li/col)

Je n'arrive pas à programmer une macro qui indente les lignes 7 à 26.
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

Après

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

Merci de votre aide

#2

Bonjour

conil26 wrote

Je n'arrive pas à programmer une macro qui indente les lignes 7 à 26.

Pourrait vouloir dire beaucoup de choses (passer les celllules concernées
en colonne B, augmenter le retrait des cellules sur toutes les *lignes",
etc.)
mais, désolé, je n'ai guère de temps, donc le code ci-dessous devrait
répondre
stricto sensu... (pas testé...)

Cordialement
Pierre-Yves

Sub Main

dim oFeuille as object, oPlage as object

oFeuille = thiscomponent.sheets.getByName("Feuille1")
oPlage = oFeuille.getCellRangeByName("A7:A26")
oPlage.HoriJustify = com.sun.star.table.CellHoriJustify.LEFT
oPlage.ParaIndent = 353

End Sub

#3

Bjr Pierre-Yves,

Merci pour ce code qui -- me semble-t-il -- correspond à un tableau Calc.
J'ai bien entendu oublié de préciser que je travaillais sur un tableau créé dans Writer.

Cordialement
Mr Sandy-Pascal Andriant

#4

Suite...

conil26 wrote

J'ai bien entendu oublié de préciser que je travaillais sur un tableau
créé dans Writer.

J'invente un verbe et je "clin d’œil" Jean-François : \o/

Ci-dessous à tester (syntaxe de mémoire) :

Sub Main

dim oTable as object, oPlage as object

oTable = thiscomponent.TextTables.getByName("Tableau1")
oPlage = oTable.getCellRangeByName("A7:A26")
oPlage.ParaFirstLineIndent = 353

End Sub

Cordialement
Pierre-Yves

#5

Bsr,

J'utilise un tableau de 27 x 1 (li/col)

Je n'arrive pas à programmer une macro qui indente les lignes 7 à 26.
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

Après

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

Merci de votre aide

Bonjour,
Puisqu'il s'agit d'un Tableau dans Writer,
pourquoi ne pas utiliser un Style Contenu de tableau différent pour les lignes 7 à 26 ?

#6

Bjr,

Je viens de tester.
ça fonctionne parfaitement et correspond tout à fait au résultat souhaité.

De la sorte j'ai pu faire un appel à cette mini-macro depuis ma macro principale.
Bonnes fêtes.

Cordialement
Mr Sandy-Pascal Andriant