OVH Cloud OVH Cloud

Rich Text Box dans Form

5 réponses
Avatar
Régis
Bonjour =E0 tous

Il faut que je mette en forme dans un contr=F4le Rich Text=20
Box d'une Form du texte (gras -soulign=E9 - couleur ...)=20
issu d'une base de donn=E9e Access.

Avec VB je r=E9cup=E8re le texte issu de la base de donn=E9e et=20
j'arrive bien =E0 le mettre en forme gr=E2ce au Rich Text Box.
(j'ai rajout=E9 des outils de mise en forme du texte)

Le seul probl=E8me qui me reste =E0 r=E9gler est de
transf=E9rer le texte du Rich Text Box avec sa nouvelle mise=20
en forme dans un nouveau document Word.

Merci =E0 tous ceux qui pourront m'aider.

Cordialement.

R=E9gis

5 réponses

Avatar
le_troll
Bonjour, le rtf est un doc word, pas besoin de transférer, il est presque
similaire à un *.doc, rien qu'en comparant les tailles à vide, c'est presque
pareil, les deux embarquent autant d'info, conclusion, tu peux le lire dans
word, c'est 1 doc que word sait faire et lire le rtf...
--
Merci, @+, bye, Joe

------------------------------------------
Avec une hache, celui qui tient le manche a toujours raison !
------------------------------------------


"Régis" a écrit dans le message de
news: 34f501c42937$cc4635f0$
Bonjour à tous

Il faut que je mette en forme dans un contrôle Rich Text
Box d'une Form du texte (gras -souligné - couleur ...)
issu d'une base de donnée Access.

Avec VB je récupère le texte issu de la base de donnée et
j'arrive bien à le mettre en forme grâce au Rich Text Box.
(j'ai rajouté des outils de mise en forme du texte)

Le seul problème qui me reste à régler est de
transférer le texte du Rich Text Box avec sa nouvelle mise
en forme dans un nouveau document Word.

Merci à tous ceux qui pourront m'aider.

Cordialement.

Régis
Avatar
Régis
Bonjour

Merci pour ta réponse.

Je suis tout à fait d'accord, cependant j'utilise le Rich
Text Box dans la form pour modifier plusieurs textes issus
de la base de données et modifier leurs mises en forme
pour les transférer dans un même document Word.

C'est un peu compliqué à expliquer mais mon besoin (de
transférer le texte mis en forme dans le RTB de la Form
dans Word) est bien réel ...

Cordialement.

Régis


-----Message d'origine-----
Bonjour, le rtf est un doc word, pas besoin de


transférer, il est presque
similaire à un *.doc, rien qu'en comparant les tailles à


vide, c'est presque
pareil, les deux embarquent autant d'info, conclusion, tu


peux le lire dans
word, c'est 1 doc que word sait faire et lire le rtf...
--
Merci, @+, bye, Joe

------------------------------------------
Avec une hache, celui qui tient le manche a toujours


raison !
------------------------------------------


"Régis" a écrit


dans le message de
news: 34f501c42937$cc4635f0$
Bonjour à tous

Il faut que je mette en forme dans un contrôle Rich Text
Box d'une Form du texte (gras -souligné - couleur ...)
issu d'une base de donnée Access.

Avec VB je récupère le texte issu de la base de donnée et
j'arrive bien à le mettre en forme grâce au Rich Text Box.
(j'ai rajouté des outils de mise en forme du texte)

Le seul problème qui me reste à régler est de
transférer le texte du Rich Text Box avec sa nouvelle mise
en forme dans un nouveau document Word.

Merci à tous ceux qui pourront m'aider.

Cordialement.

Régis



.



Avatar
ng
Salut,

Je ne connais pas très bien l'automation Word, donc je ne sais pas s'il
existe une tecnhique permetant d'insérer du texte mis en form directement.

Mais tu peux toujours procéder par un copier coller (à condition qu'une
méthode 'coller' soit disponible en automation) ou formater directement toi
même le texte word en bouclant ton rtf ou encore en ouvrant le fichier rtf
dans word (word sait lire le rtf).

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/

Régis a écrit :

Bonjour à tous

Il faut que je mette en forme dans un contrôle Rich Text
Box d'une Form du texte (gras -souligné - couleur ...)
issu d'une base de donnée Access.

Avec VB je récupère le texte issu de la base de donnée et
j'arrive bien à le mettre en forme grâce au Rich Text Box.
(j'ai rajouté des outils de mise en forme du texte)

Le seul problème qui me reste à régler est de
transférer le texte du Rich Text Box avec sa nouvelle mise
en forme dans un nouveau document Word.

Merci à tous ceux qui pourront m'aider.

Cordialement.

Régis


Avatar
François Picalausa
Hello,

tu peux utiliser un code comme celui ci (ajouter Word dans les références):
Option Explicit

Private WordApp As Word.Application, MyDoc As Word.Document

Private Sub Command1_Click()
Dim NewParagraph As Paragraph

Dim OldData As String

Set NewParagraph = MyDoc.Range.Paragraphs.Add

OldData = Clipboard.GetText(vbCFRTF)
Clipboard.SetText RichTextBox1.TextRTF, vbCFRTF
NewParagraph.Range.Paste
Clipboard.SetText OldData, vbCFRTF
End Sub

Private Sub Command2_Click()
RichTextBox1.SelBold = Not RichTextBox1.SelBold
End Sub

Private Sub Form_Load()
Set WordApp = New Word.Application

WordApp.Visible = True
Set MyDoc = WordApp.Documents.Add
End Sub

--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com
http://apisvb.europe.webmatrixhosting.net

"Régis" a écrit dans le message
de news:34f501c42937$cc4635f0$
Bonjour à tous

Il faut que je mette en forme dans un contrôle Rich Text
Box d'une Form du texte (gras -souligné - couleur ...)
issu d'une base de donnée Access.

Avec VB je récupère le texte issu de la base de donnée et
j'arrive bien à le mettre en forme grâce au Rich Text Box.
(j'ai rajouté des outils de mise en forme du texte)

Le seul problème qui me reste à régler est de
transférer le texte du Rich Text Box avec sa nouvelle mise
en forme dans un nouveau document Word.

Merci à tous ceux qui pourront m'aider.

Cordialement.

Régis


Avatar
Régis
Merci à vous tous, j'essaie la manip tout de suite

Cordialement

Régis
-----Message d'origine-----
Hello,

tu peux utiliser un code comme celui ci (ajouter Word


dans les références):
Option Explicit

Private WordApp As Word.Application, MyDoc As


Word.Document

Private Sub Command1_Click()
Dim NewParagraph As Paragraph

Dim OldData As String

Set NewParagraph = MyDoc.Range.Paragraphs.Add

OldData = Clipboard.GetText(vbCFRTF)
Clipboard.SetText RichTextBox1.TextRTF, vbCFRTF
NewParagraph.Range.Paste
Clipboard.SetText OldData, vbCFRTF
End Sub

Private Sub Command2_Click()
RichTextBox1.SelBold = Not RichTextBox1.SelBold
End Sub

Private Sub Form_Load()
Set WordApp = New Word.Application

WordApp.Visible = True
Set MyDoc = WordApp.Documents.Add
End Sub

--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com
http://apisvb.europe.webmatrixhosting.net

"Régis" a écrit


dans le message
de news:34f501c42937$cc4635f0$
Bonjour à tous

Il faut que je mette en forme dans un contrôle Rich Text
Box d'une Form du texte (gras -souligné - couleur ...)
issu d'une base de donnée Access.

Avec VB je récupère le texte issu de la base de donnée




et
j'arrive bien à le mettre en forme grâce au Rich Text




Box.
(j'ai rajouté des outils de mise en forme du texte)

Le seul problème qui me reste à régler est de
transférer le texte du Rich Text Box avec sa nouvelle




mise
en forme dans un nouveau document Word.

Merci à tous ceux qui pourront m'aider.

Cordialement.

Régis




.