Discussion :

[Poussemousse]

Bonjour à tous,

Mon but est à partir d'une macro, de pouvoir ajouter ou mettre à jour des styles dans des documents Word.

Je possède déjà, dans un autre document, le style que je veux ajouter, mais je ne sais pas comment récupérer toutes ses propriétés pour pouvoir les donner dans une macro en VBA :

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
With ActiveDocument.Styles(nouveauStyle).Font
    .Name = "Arial"
    .Size = 11
    .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
    .Scaling = 100
    .Kerning = 0
    .Animation = wdAnimationNone
    .SizeBi = 11
    .NameBi = "Arial"
    .BoldBi = True
    .ItalicBi = False
End With

J'ai déjà récupéré certaines info, voir ci-dessus, mais je sais qu'il y a d'autres propriétés qui me manquent.

Je sais que je peux faire un copier/coller de style en direct dans VBA, mais ne voulant pas stocker le style original dans le doc si ce n'est pas nécessaire je cherche donc un moyen de récupérer toutes les propriétés pour pouvoir ensuite les ré-injecter à la demande.

Merci de votre aide et de vos idées,
Poussemousse

[clementmarcotte]

Bonjour,

J'ai l'impression que tu te diriges vers l'usine à gaz. Si tu regardes les propriétés de l'objet Style dans ton aide de VBA, tu peux voir que plusieurs, sinon toutes les propriétés retournent elles-mêmes des objets, et tous ces objets, ont leurs propres propriétés. Mais ce ne sont pas forcément tous ces objets qui sont importants à conserver. Tu dois faire le tri au préalable. Par exemple, sauf horreur de ma part, il y a n'y a pas grand avantage à récupérer les propriétés "application", parce que tu auras toujours l'application Word. D'un autre côté ton style particulier a probablement builtin à false, et tu peux toujours commencer par là.

Mais pourquoi toutes ces cérémonies ? Il y a peut-être plus simple, comme de juste importer manuellement le style dans le modèle.