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
Partager