Discussion :

[Beber39]

Bonjour,

avec les données d'une base Access, je complète un document Word avec VBA

Un des champs de données est en format Texte Enrichi.
Pour ce champ, je retrouve dans Word un texte codé en html.

Y-a-t-il une solution pour garder la mise en forme du texte enrichi :
soit dans l'instruction VBA ? j'utilise l'instruction : AppW.Selection.TypeText Enreg.Fields(9)
soit dans Word en appliquant une mise en forme sur cette partie de texte ?

Merci

[clementmarcotte]

Bonjour,

Vite fait directement dans VBA Word, et à adapter pour ton pilotage dans Access. C'est en passant par le collage spécial. Note que tu dois ajouter la copie de ton texte d'Access dans le presse-papiers. Dans ce cas-ci, le texte est déjà dans le presse-papiers.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Macro1()
'
' Macro1 Macro
'
'
   Selection.PasteSpecial (wdPasteRTF)
End Sub

Si jamais Access te fait une crise avec la constante wdPasteRTF, remplace-là par 1, sa valeur numérique

Tu peux aussi jeter un œil sur ces pages


Collage spécial VBA-Word

Constantes du collage spécial VBA-Word

[Beber39]

Super ! et merci.

cependant, autant ça marche si je copie "à la main" le contenu du champ de la table dans le presse papier et que j'applique la commande AppW.Selection.PasteSpecial (wdPasteRTF),
autant ça ne marche pas si la copie est faite en code vba : le format est perdu !

Voici un extrait de mon code :

Dim MyData As DataObject
Set MyData = New DataObject
MyData.SetText Enreg.Fields(9), wdPasteRTF ' Enreg.fields(9)=champ de table de type memo en texte enrichi
MyData.PutInClipboard

AppW.Selection.GoTo What:=wdGoToBookmark, Name:="S1" ' saut au signet S1 du document Word
AppW.Selection.PasteSpecial (wdPasteRTF)


Est-ce que je fais une erreur ?
Avec 1 précisé dans le format de SetText, le résultat est le même.

Merci

[Beber39]

Mon problème est résolu.

Il suffit de rempli un contrôle d'un formulaire avec le contenu du champ, puis de copier le contenu de ce contrôle dans le presse papier

Forms!Formulaire1!MemoTmp = Enreg.Fields(9)
Forms!Formulaire1!MemoTmp.SetFocus
DoCmd.RunCommand acCmdCopy