Discussion :

[Pgs]

Bonjour

La fonction suivante 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
sub TablesFormat
dim dyntab, dyntabb as object
dim dyntabbl as new com.sun.star.table.BorderLine
with dyntabbl
	.Color = RGB(0, 0, 255)
	.InnerLineWidth = 12
	.LineDistance = 12
	.OuterLineWidth = 12
end with
dyntab=ThisComponent.TextTables.getByIndex(0)
dyntabb=dyntab.TableBorder
dyntabb.LeftLine = dyntabbl
dyntabb.RightLine = dyntabbl
dyntabb.TopLine = dyntabbl
dyntabb.BottomLine = dyntabbl 
dyntabb.HorizontalLine = dyntabbl 
dyntabb.VerticalLine = dyntabbl 
dyntab.TableBorder = dyntabb 
end sub

Mais si j'appelle TablesFormat() à partir d'une autre sub :

* dyntabb.LeftLine = dyntabbl génère un message de variable d'objet non définie

* si, ensuite, je lance TablesFormat() en direct, j'ai le même message, alors que je n'avais pas ce message avant de lancer TablesFormat() à partir d'une autre sub

Avez-vous une idée ?

Merci

[zoom61]

Salut,

As-tu essayé avec :

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
sub TablesFormat 
dim dyntab, dyntabb as object
dim dyntabbl as new com.sun.star.table.BorderLine
with dyntabbl
    .Color = RGB(0, 0, 255)
    .InnerLineWidth = 12
    .LineDistance = 12
    .OuterLineWidth = 12
end with
dyntab=ThisComponent.TextTables.getByIndex(0)
dyntabb=dyntab.TableBorder
with dyntabb
   .LeftLine = dyntabbl
   .RightLine = dyntabbl
   .TopLine = dyntabbl
   .BottomLine = dyntabbl 
   .HorizontalLine = dyntabbl 
   .VerticalLine = dyntabbl 
end with
dyntab.TableBorder = dyntabb  end sub

[Pgs]

ça ne marche pas non plus.
C'est comme si le croisement de sub posait problème avec TableBorder
Par exemple dyntab.HeaderRowCount=1 ne pose aucun problème

[Pgs]

J'ai l'impression que c'est le fait d'utiliser par ailleurs le code suivant

Code :

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

1
2
3
4
5
6
7
8
9
 
dim options(1) As New com.sun.star.beans.PropertyValue
options(0).Name = "LoadPageStyles"
options(0).Value = True
options(1).Name = "OverwriteStyles"
options(1).Value = False
if(FileExists( ConvertToURL( .... ) )) then
	ThisComponent.StyleFamilies.loadStylesFromURL(convertToURL(...), options())
end if

qui crée le problème. Ce code marche bien, mais si je lance après TableFormat() (en direct ou via une autre sub) le problème apparaît.
Si je ne lance pas ce code, TableFormat() marche bien, en direct ou via une autre sub.
C'est comme si l'utilisation de options() créait la perturbation.
Si je mets un ' devant ThisComponent.StyleFamilies.loadStylesFromURL(convertToURL(...), options()), le problème disparait.

[Pgs]

Je pense que j'ai trouvé le problème (mais pas la solution)
Je récupère un style de page dont l'entête contient un tableau.
Lorsque je lance ensuite une routine de formatage de TableBorder de tous les tableaux du document, elle plante.
Si crée une condition sur le nom de tableau pour le pas traiter le tableau qui est dans l'entête, plus de problème...

[zoom61]

Cela peut venir aussi d'un seul tableau... exécute ton code en pas à pas.