[VB6]Transférer un RichTextBox vers Word

Version imprimable

24/03/2006, 22h12
Chess0

[VB6]Transférer un RichTextBox vers Word

Bonjour,

J'ai fait une petite application en VB 6.0 qui utilise un RichTextBoxpuis lorsque l'on clique "Imprimer", les informations sont envoyées par VB dans un objet Word qui imprime diverses informations.

Mon problème est que j'ignore comment appliquer la mise en forme (bold, italic, underline, font, etc) de mon contrôle RTF dans mon objet Word. J'ai pensé utiliser la propriété TextRTF du RichTextBox mais l'objet Word se contente d'imprimer les tags plutôt que de les interpréter.

Pardon si j'ai oublié de mentionner une information importante, et merci de votre aide.
24/03/2006, 22h40
ThierryAIM

Re: [VB6]Transférer un RichTextBox vers Word

Citation:

Envoyé par Chess0

Pardon si j'ai oublié de mentionner une information importante

oui, ton code !

Code pour imprimer:

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
55
56
Private Sub cmdImprimer_Click()
On Error GoTo GestionErreur
    If lstClients.SelCount > 0 Then
        Dim MyWord As Word.Application, doc As Word.Document
        Dim signet As String, i As Long
        '
        Dim iRangeBoldStart As Integer
        Dim iRangeBoldEnd As Integer
        Dim iRangeIndentStart As Integer
        Dim iRangeIndentEnd As Integer
        '
        Dim RangeBold As Word.Range
        Dim RangeIndent As Word.Range
        Set MyWord = New Word.Application
 
        With MyWord
            Set doc = .Documents.Open(App.Path & "\docs\mydoc.doc")
            Dim myRange As Word.Range
            Dim rsClients As New ADODB.Recordset
            Dim rsContacts As New ADODB.Recordset
            Dim rsNotes As New ADODB.Recordset
            Dim iClient As Integer
            Dim iContact As Integer
            Dim iNote As Integer
 
            Set myRange = doc.Content
            myRange.Delete
 
            For iClient = 0 To lstClients.SelCount - 1
                If lstClients.Selected(iClient) Then
                    rsClients.Open "select clients.*, villes.ville from clients inner join villes on villes.id = clients.villes_id where clients.id = '" & lstClients_hid.List(iClient) & "';", frmVentesClients.connMyConn, 1, 3
                    Set myRange = doc.Content
                    myRange.Font.Name = "Verdana"
                    myRange.Font.Size = 8
 
                    With myRange
                        .Collapse wdCollapseEnd
                        ' **************** CLIENT ****************
                        iRangeBoldStart = Len(doc.Content) - 1
                        .InsertAfter UCase(rsClients.Fields("entreprise"))
 
                        iRangeBoldEnd = Len(doc.Content) - 1
                        Set RangeBold = doc.Range(iRangeBoldStart, iRangeBoldEnd)
                        RangeBold.Font.Bold = True
                        RangeBold.Font.Size = 10
 
                        .InsertAfter vbCrLf
                        If Len(Trim(rsClients.Fields("adresse"))) > 0 Then
                            .InsertAfter rsClients.Fields("adresse")
                        End If
                        If Len(Trim(rsClients.Fields("ville"))) > 0 Then
                            .InsertAfter ", " & rsClients.Fields("ville")
                        End If
 
 
etc...

Je ne prends pas la peine de mettre le code au complet vu que le reste est très redondant, mais avec des informations différentes.

Le reste du code est très simple, on ajoute le contenu du RichTextBox dans la base de données.

Soit dit en passant, je ne vois pas l'utilité du code source étant donné qu'il ne s'agit pas d'une question à propos d'une erreur de programmation, mais si tu crois que ça peut t'aider à m'aider..

25/03/2006, 14h21
ouskel'n'or
Je ne comprends pas bien comment tu récupères le style de ton RichTextBox mais voici toujours la syntaxe, dans Word, pour modifier le style de ta selection
Code:

1 2 Selection.Font.Bold = wdToggle Selection.Font.Size = 10
Si tu veux appliquer le style à tout le document, tu fais au préalable

Code:

Selection.WholeStory

A tout hasard

Je récupère le style de mon RichTextBox avec la propriété TextRTF du RichTextBox (j'enregistre le tout dans une BD). Ensuite, quand je clique sur Imprimer, je vais chercher l'information dans la BD pour l'insérer dans un document Word et l'imprimer.

J'arrive déjà à mettre en gras, italique, etc dans Word:
Code:

1 2 3 4 5 6 iRangeBoldStart = Len(doc.Content) - 1 .InsertAfter UCase(rsClients.Fields("entreprise")) iRangeBoldEnd = Len(doc.Content) - 1 Set RangeBold = doc.Range(iRangeBoldStart, iRangeBoldEnd) RangeBold.Font.Bold = True RangeBold.Font.Size = 10
Mais ce que je voulais savoir, c'est s'il existe une façon simple de faire passer la valeur TextRTF de mon RichTextBox (enregistré dans la BD..) au document Word tout en conservant la mise en forme.

Bien sûr, je peux essayer en faisant des tas de conditions.. Mais je me dit qu'un objet puissant comme Word doit inclure une façon plus pratique de faire la même chose que je souhaite.

Exemple de valeur dans TextRTF :
Code:

1 2 3 4 5 {\rtf1\ansi\ansicpg1252\deff0{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}} \viewkind4\uc1\pard\lang1033\f0\fs17 Un exemple de texte. Un exemple de texte. Un exemple de texte. \i Un exemple de texte. Un exemple de texte.\i0 Un exemple de texte. \par \par \b Un exemple de texte. Un exemple de texte.\b0 Un exemple de texte. Un exemple de texte. Un exemple de texte. Un exemple de texte. Un exemple de texte. \ul Un exemple de texte.\ulnone Un exemple de texte. Un exemple de texte. Un exemple de texte. Un exemple de texte. \par }

27/03/2006, 16h24
ouskel'n'or

Avec un module de classe, tu devrais pouvoir t'en sortir. Il y une bonne adresse pour ça : http://xo.developpez.com/tutoriel/vb6/poo_vb6/
Au départ, tu séries les différents formats que tu as dans rtf et tu passes au format défini dans le module de classe.

Tu peux aussi faire ça en passant par des fonction dans lesquelles tu passes l'index du format RTF que tu as sérié et ton text en paramètres...

Un peu l'usine à gaz mais plus simple que de formater au fur et à mesure.

Juste pour l'idée

A+

NB - Une petite remarque : Je n'aimerais pas avoir à le faire :cry:
27/03/2006, 19h03
ThierryAIM

Mais pourquoi diable, enregister tout le rtf dans la BDD, et non pas un lien sur un fichier.rtf, enregistré sur le disque

ca serait quand même plus simple, et allègerait la BDD, non ?
27/03/2006, 23h42
Chess0

Ouskel'n'or : C'est effectivement ce à quoi j'avais pensé, mais j'espèrais ne pas en arriver là.. hehe Mais bon, je vais me résigner, je crois.

ThierryAIM : Ça allègerait effectivement la BDD mais pas suffisamment pour que ça fasse une différence considérable, vu la puissance du serveur. De plus, il s'agit d'informations importantes, qui doivent être archivées, pas seulement imprimées. D'où la raison de la BDD.
28/03/2006, 00h05
ThierryAIM

Citation:

Envoyé par Chess0

ThierryAIM : Ça allègerait effectivement la BDD mais pas suffisamment pour que ça fasse une différence considérable, vu la puissance du serveur. De plus, il s'agit d'informations importantes, qui doivent être archivées, pas seulement imprimées. D'où la raison de la BDD.

Parce que enregistrer sur disque, ce n'est pas archiver ??? 8O

A toi de concevoir l'archivage, sous forme de zip, ou autre ....
28/03/2006, 15h35
Chess0

C'est archiver... Mais pas facile de s'y retrouver par la suite. Les possibilités de récupération sont quand même plus nombreuses avec la BDD, non?

Et puis, pour naviguer d'un enregistrement à l'autre, ça ne prend qu'un 1/4 de seconde avec la BDD. Avec les fichiers textes, il faudra ouvrir/charger/fermer le fichier entre chaque navigation. Je doute que ce soit aussi rapide, d'autant qu'ils ne se situeraient pas sur une machine locale. Ça permet également d'éviter que les informations soient éparpillées, puisque la base de données est utilisées pour tout le reste. Et le backup inclut la base de données, pas les autres fichiers. Ça se modifie, j'en conviens mais le backup est déjà en place, et fonctionnel. Donc, utiliser n'importe quel autre moyen d'archivage autre qu'une BDD rajouterait des étapes et du temps d'éxécution sans compter la modification du système de backup.