export de textbox formatés vers word

Version imprimable

10/04/2012, 15h52
phira47

2 pièce(s) jointe(s)

export de textbox formatés vers word

bonjour à tous.

le soucis qui m'amène chez vous est le suivant: un de mes collègues et moi développons une base de donnée et utilisons le VBA qui est derrière pour standardiser la création de document word afin d'aider notre équipe.

pour une raison de choix de départ, et de facilité, l'option de création des états n'a pas été choisie et tout a été codé.

en fait tout va bien sauf un truc: access permet l'utilisation de text memo au format enrichi ( bullet, couleurs, gras, etc...)

quand nous lançons notre exportation l'export du document ( donc de access vers word) le texte est bien repris, mais suivant les essais deux situations se produisent:
soit les balises de formatages disparaissent ( et tout le texte reste en normal)
soit des balises HTML apparaissent mais sont retranscrites telles quelles sans effet sur le formatage du texte.

d'où ma question: existe t il une méthode pour exporter le contenu d'un champ memo formaté?
( comme je ne suis pas bien sûr de me faire comprendre, j'ai joint deux images genre avant après)

Bonjour,

Il me semble, mais je n'en suis pas sûr hein :pastaper:, que le format "enrichi" de Access est du HTML, différent du format enrichi de Word.

J'avais essayé ça (c'est pas super pro hein !), qui fonctionnait, à adapter :

Référence à Microsoft Office Word XXX à faire dans VBA

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub cmdExport_Click()
    Dim appWord As New Word.Application
    Dim wrdDoc As Word.Document
 
    TestMemo.SetFocus   'Sélectionne le champs
    TestMemo.SelStart = 0
    TestMemo.SelLength = Len(Nz(TestMemo.Value, ""))
 
    DoCmd.RunCommand acCmdCopy 'Copie
 
    appWord.Visible = True    'affiche word
    Set wrdDoc = appWord.Documents.Add(, , , True)    'affiche un nouveau document
    wrdDoc.Range.Paste 'colle le texte
 
    wrdDoc.Save 'sauve le document
 
    'Suppression des objets
 
    Set appWord = Nothing
    Set wrdDoc = Nothing
 
End Sub

11/04/2012, 08h36
phira47

Citation:

Envoyé par Pepito78

Bonjour,

Il me semble, mais je n'en suis pas sûr hein :pastaper:, que le format "enrichi" de Access est du HTML, différent du format enrichi de Word.

J'avais essayé ça (c'est pas super pro hein !), qui fonctionnait, à adapter :

quelle rapidité de réponse.

pour complèter, oui, des balises HTML apparaissent mais sont inutilisables

attends, on va 'essayer ta piste et je te dis quoi.
11/04/2012, 11h54
phira47

Citation:

Envoyé par Pepito78

Bonjour,

Il me semble, mais je n'en suis pas sûr hein :pastaper:, que le format "enrichi" de Access est du HTML, différent du format enrichi de Word.

J'avais essayé ça (c'est pas super pro hein !), qui fonctionnait, à adapter :

Référence à Microsoft Office Word XXX à faire dans VBA

ok, mon collègue vient d'essayer ta proposition de code.
ça marche à ceci près que certains formatages sont perdus ( les codes couleurs, en fait) mais ce n'est peut être pas du à ton code, mais bien à notre manière de forcer le normal.dot.
par contre il a trouvé ceci ( qui ressemble très fort à ton idée) qui marche à tous les coup et dans tous les cas, mais qui est vachement plus dépendant de l'OS et de la version d'access
http://support.microsoft.com/kb/274326
nous sommes en train de comparer les deux de manière plus approfondie

je vais placer le tag de résolution
11/04/2012, 12h07
Pepito78

Vous parler de normal.dot, avez vous remarqué que lors de l'appel à

Code:

Set wrdDoc = appWord.Documents.Add(, , , True)

, on peut spécifier, en argument, un modèle en particulier.

Au lieu d'utiliser un "forçage" de normal.dot, peut-être pouvez créer un modèle spécifique...

Bon courage !
14/04/2012, 17h48
Pepito78

Citation:

Envoyé par Pepito78

Vous parlez de normal.dot, avez vous remarqué que lors de l'appel à

Code:

Set wrdDoc = appWord.Documents.Add(, , , True)

, on peut spécifier, en argument, un modèle en particulier.

Au lieu d'utiliser un "forçage" de normal.dot, peut-être pouvez créer un modèle spécifique...

Bon courage !