[AC-2003] Générer doc Word avec une police d'écriture spécifique

[eugiba]

Bonjour,
j'ai créé un formlaire où l'on génère un document Word.
1. On saisi le texte à écrire dans ce document
2. On sélectionne la police d'écriture + italique, souligné....
3. On génère le document avec tout ça

Problème : Le texte s'affiche dans Word en Times New Roman, Normal, Taille 12 (les préférences de base)

J'ai coché la référence dans outils/références --> Microsoft Word 11.0 Object library cité dans d'autres forums.

Voici le 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
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
Private Sub cmdDoc_Click()
On Error Resume Next
ActiveWorkbook.VBProject.References.AddFromFile _
("C:\Program Files\Microsoft Office\Office11\MSWORD.OLB")
Dim wApp As Word.Application
Dim wDoc As Word.Document
 
Dim fFontes As Form
Dim ListeFontes, Italique, Gras, Souligné, Size, textesaisi As Control
Dim TypeFonte, ItaliqueW, GrasW, SoulignéW, SizeW
 
'Créer l'application Word
Set wApp = CreateObject("Word.Application")
 
'Créer nouveau document
Set wDoc = wApp.Documents.Add
 
'Edition de la police d'écriture
Set fFontes = Forms!CreerDoc
 
Set ListeFontes = fFontes!ListeFontes
Set Italique = fFontes!Italique
Set Gras = fFontes!Gras
Set Souligné = fFontes!Souligné
Set Size = fFontes!Size
Set textesaisi = fFontes!textesaisi
 
TypeFonte = ListeFontes
ItaliqueW = Italique
GrasW = Gras
SoulignéW = Souligné
SizeW = Size
 
'Applique les paramètre de police au texte saisi
With textesaisi
    .FontName = TypeFonte
    .FontItalic = ItaliqueW
    .FontBold = GrasW
    .FontUnderline = SoulignéW
    .FontSize = SizeW
End With
 
'Ajoute le texte saisi dans le document Word
wApp.Selection.TypeText textesaisi 
 
With wDoc
    .SaveAs ("C:\test.doc")                          'Sauvegarde du document
    .Close                                                  'Ferme le document
End With
 
wApp.Quit
Set wApp = Nothing      'Libère l'application
 
End Sub

Merci d'avance

[eugiba]

J'ai réussi à éditer la police dans word de cette manière:

Code :

1
2
3
4
5
6
7
8
'Applique les paramètre de police à Word
With wApp.Selection
    .Font.Name = TypeFonte
    .Font.Italic = ItaliqueW
    .Font.Bold = GrasW
    .Font.Underline = SoulignéW
    .Font.Size = SizeW
End With

Avec cette méthode j'édite toute le document avec une police, souligné...
Mais mon but principal c'est de pouvoir écrire 2 lignes avec des polices différentes.

Merci