[VBA] Création fichier Word par Access via VBA
Bonjour,
j'ai un petit problème pour ma création de fichier Word à partir d'Access via VBA.
J'arrive bien à créer le fichier, à insérer un tableau (et les données qui vont avec - merci les FAQ VBA et VB de Developpez.com ;) ), mais je bute sur une présentation optimale du simple texte à afficher.
Mon objectif est d'arriver à écrire sur une même ligne un mot en gras, puis un ou quelques mots en caractères "normaux" (ni gras, ni italique).
J'utilise le code suivant:
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
|
Public Function TestWord()
Dim wdApp As Word.Application, wdDoc As Word.Document, wdPar As Word.Paragraph
Dim Texte As Word.Range, Titre As Word.Range
' Définition de Word
Set wdApp = CreateObject("Word.Application")
' Ouverture d'un nouveau document
Set wdDoc = wdApp.Documents.Add
(...)
Set wdPar = wdDoc.Paragraphs.Add
Set Titre = wdPar.Range
With Titre
.Bold = True
.Italic = False
.Font.Name = "Arial"
.Font.Size = "10"
.ParagraphFormat.Alignment = wdAlignParagraphLeft
End With
Titre.Collapse ' Obliger l'insertion au niveau du curseur
Titre.InsertBefore ("Essai de titre: ")
Set Titre = Nothing
Set Texte = wdPar.Range
With Texte
.Bold = False
.Italic = False
.Font.Name = "Arial"
.Font.Size = "10"
.ParagraphFormat.Alignment = wdAlignParagraphLeft
End With
Texte.Collapse
Texte.InsertAfter ("Essai de texte")
Set Texte = Nothing
Set wdPar = Nothing
(...)
' Fermeture du document et de l'application Word
wdDoc.SaveAs (CurrentProject.Path & "\test.doc")
wdDoc.Close
Set wdDoc = Nothing
wdApp.Quit
Set wdApp = Nothing |
Le résultat dans le fichier est (veuillez noter l'absence de gras):
Citation:
Essai de texteEssai de titre:
alors que je voudrais:
Citation:
Essai de titre: Essai de texte
NB: J'ai essayé la fonction TypeText(), mais il me manque une définition de variable (si ma mémoire est bonne :P ) sous Access.
Je remercie d'avance l'âme charitable (ou les âmes charitables) qui m'apporteront des pistes pour solutionner mon problème.
Merci.
@+
