Discussion :

[Mariquiqui]

Bonjour!

Je sais que l'impression est un vieux sujet, mais j'ai besoin d'aide. Je suis prise à créer une macro sur Open Office(en Basic, JavaScript,Python ou BeanShell), pour imprimer des fichiers textes.

Je ne sais même pas par où commencer! Je cherche des scripts, mais la seule manière que je connaisse c'est avec VB, mais à partir d'Open Office, je ne sais pas ce qui est possible, ni comment y arriver. Avez-vous une idée?

[SfJ5Rpw8]

s'il s'agit de piloter open office en VB6...

voir :


Comment utiliser OpenOffice avec VB et VBA ?

[Mariquiqui]

Y'a rien sur l'impression depuis Open Office!!! Je veux cliquer sur un bouton, et que ca imprime les fichiers dont j'ai entré les noms par code, et ce sur une imprimante réseau. Est-ce que j'ai bien formulé ma question? Le tutoriel ne parle pas d'impression!

[zazaraignée]

Je suis prise à créer une macro sur Open Office

Les macros commandes de OpenOffice.org sont en Basic. Un Basic très particulier propre à Sun. Faudrait voir sur des forums dédiés à OpenOffice.

Pour illustrer, j'ai créé une petite macro par enregistrement dans chacun des traitement de texte. La même : mon pseudo en Arial gras 16 pts bleu.

La macro enregistrée dans Ms Word (Ms Office XP) : [Edit] Corrigé parce qu'il faut passer par la boîte de dialogue police pour que ça enregistre correctement... [End Edit]

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
28
29
30
31
32
33
34
35
36
37
Sub zazaraignée()
'
' zazaraignée Macro
' Macro enregistrée le 21/05/2008 par zazaraignée
'
    Selection.TypeText Text:="zazaraignée"
    Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
    With Selection.Font
        .Name = "Arial"
        .Size = 16
        .Bold = True
        .Italic = False
        .Underline = wdUnderlineNone
        .UnderlineColor = wdColorAutomatic
        .StrikeThrough = False
        .DoubleStrikeThrough = False
        .Outline = False
        .Emboss = False
        .Shadow = False
        .Hidden = False
        .SmallCaps = False
        .AllCaps = False
        .Color = wdColorBlue
        .Engrave = False
        .Superscript = False
        .Subscript = False
        .Spacing = 0
        .Scaling = 100
        .Position = 0
        .Kerning = 0
        .Animation = wdAnimationNone
        .SizeBi = 12
        .NameBi = "Times New Roman"
        .BoldBi = True
        .ItalicBi = False
    End With
End Sub

La macro enregistrée (avec quelques ratées pour la couleur) dans OOo Writer:

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
sub zazablues
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 = "CharFontName.StyleName"
args1(0).Value = ""
args1(1).Name = "CharFontName.Pitch"
args1(1).Value = 2
args1(2).Name = "CharFontName.CharSet"
args1(2).Value = -1
args1(3).Name = "CharFontName.Family"
args1(3).Value = 5
args1(4).Name = "CharFontName.FamilyName"
args1(4).Value = "Arial"
 
dispatcher.executeDispatch(document, ".uno:CharFontName", "", 0, args1())
 
rem ----------------------------------------------------------------------
dim args2(2) as new com.sun.star.beans.PropertyValue
args2(0).Name = "FontHeight.Height"
args2(0).Value = 16
args2(1).Name = "FontHeight.Prop"
args2(1).Value = 100
args2(2).Name = "FontHeight.Diff"
args2(2).Value = 0
 
dispatcher.executeDispatch(document, ".uno:FontHeight", "", 0, args2())
 
rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "Bold"
args3(0).Value = true
 
dispatcher.executeDispatch(document, ".uno:Bold", "", 0, args3())
 
rem ----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "FontColor"
args4(0).Value = 128
 
dispatcher.executeDispatch(document, ".uno:FontColor", "", 0, args4())
 
rem ----------------------------------------------------------------------
dim args5(0) as new com.sun.star.beans.PropertyValue
args5(0).Name = "Text"
args5(0).Value = "zazaraigneé"
 
dispatcher.executeDispatch(document, ".uno:InsertText", "", 0, args5())
 
rem ----------------------------------------------------------------------
dim args6(0) as new com.sun.star.beans.PropertyValue
args6(0).Name = "FontColor"
args6(0).Value = 128
 
dispatcher.executeDispatch(document, ".uno:FontColor", "", 0, args6())
 
 
end sub

Comme vous voyez, tout, tout et absolument tout ce qui est manipulé dans une macro commande est d'abord déclaré dans une variable... et est exécuté par un répartiteur (dispacher).

Il est possible d'écrire du code pour OOo en Python, en JavaScript et en BeanShell... Ne me demandez pas ce qu'est BeanShell... Je trouve juste que ça ressemble étrangement à la fois à du Java et du JavaScript...

[Edit] J'avais oublié notre FAQ OpenOffice !