Modifier style Word dans macro Excel
Bonjour Les développeurs
J'essaie d'écrire un Word qui ait une présentation correcte à partir d'une macro Excel.
Je n'arrive pas à utiliser les styles par défauts "Titre 1", "sans interlignes" et autres noms de styles par défaut trouvés avec la macro Word.
Je sais que les correspondances macro word et macro excel ne sont pas parfaites mais j'arrive à utiliser les paramètre "bold" et "size" en deuxième partie de code.
Code:
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
|
With WordObj.Selection
.Style = WordObj.Styles("Titre")
.TypeText text:=titre1
.Style = ActiveDocument.Styles("Sans interligne")
.TypeParagraph
Do While tableau1(h) <> Empty
.TypeText text:=tableau1(h)
.TypeParagraph
h = h + 1
Loop
h = 0
.Font.Size = 22
.TypeParagraph
.Font.Bold = True
.TypeText text:=titre2
.Font.Size = 12
.Font.Bold = False
.TypeParagraph
Do While tableau2(h) <> Empty
.TypeText text:=tableau2(h)
.TypeParagraph
h = h + 1
Loop
End With |
Des idées sur le fond de mon problème?
Vive le fromage