Discussion :

[Ruyneau]

Bonjour,
Je découvre libre office après quelques années sur word.
J'ai vu qu'avec libreOffice, il est possible d'enregistrer les macros tant que l'on n'ouvre pas une boite de dialogue.
Donc je bloque assez vite.
Voici mon pb.

Je tape un texte avec titre1, titre2,... corps de texte dans un premier temps pour l'imprimer (taille de police 11pt)
Je souhaite dans un deuxième temps modifier les formats des styles de titre1, Titre2,... corps de texte en vue d'en faire un diaporama (changer les couleurs, la taille de la police,...).
Comme je dois le faire sur plusieurs fichiers, j'aimerais automatiser cette procédure de changement de format pour les styles.
J'ai cherché dans le forum mais je n'ai pas trouvé.
Pouvez-vous me donner le code qui me permettrait de modifier le format du style titre1 (par exemple changer la taille de la police; pour le reste je pense pouvoir me débrouiller...)
Ci-dessous un exemple de code sous VBA pour Word que j'aimerais transcrire en VBA pour libre office
Merci pour vos réponses
Gabriel

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
Sub modification_titre1()
    With ActiveDocument.Styles("Titre 1").Font
        .Name = "Verdana"
        .Size = 28
        .Bold = True
        .Italic = False
        .Underline = wdUnderlineNone
        .StrikeThrough = False
        .DoubleStrikeThrough = False
        .Outline = False
        .Emboss = False
        .Shadow = False
        .Hidden = False
        .SmallCaps = False
        .AllCaps = False
        .ColorIndex = wdBlue
        .Engrave = False
        .Superscript = False
        .Subscript = False
        .Scaling = 100
        .Kerning = 14
        .Animation = wdAnimationNone
    End With
    With ActiveDocument.Styles("Titre 1").ParagraphFormat
        .LeftIndent = CentimetersToPoints(0.63)
        .RightIndent = CentimetersToPoints(0)
        .SpaceBefore = 12
        .SpaceAfter = 0
        .LineSpacingRule = wdLineSpaceSingle
        .Alignment = wdAlignParagraphJustify
        .WidowControl = True
        .KeepWithNext = True
        .KeepTogether = False
        .PageBreakBefore = False
        .NoLineNumber = False
        .Hyphenation = True
        .FirstLineIndent = CentimetersToPoints(-0.63)
        .OutlineLevel = wdOutlineLevel1
    End With

[zoom61]

L'extension Template Changer peut peut-être aller !

[Ruyneau]

Oui effectivement.
J'ai vu aussi que l'on pouvait charger des styles à partir d'un fichier en écrasant les préexistants (avec F11).
Mais ma question reste entière... Si je souhaite importer automatiquement (en faisant une macro + touche raccourci) l'enregistrement macro s'arrête dès l'ouverture d'une boite de dialogue et la syntaxe ne m'est vraimanet (pas encore) familière.
Je vais essayer de faire autrement.
Merci pour votre réponse
Gabriel