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 : 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
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):

Essai de texteEssai de titre:
alors que je voudrais:

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 ) sous Access.

Je remercie d'avance l'âme charitable (ou les âmes charitables) qui m'apporteront des pistes pour solutionner mon problème.

Merci.

@+