J'ai cr=E9e une User Form qui contient :
* un bouton "Ajouter"
* un ocx RichTextBox (dans Outils- R=E9f=E9rences : Microsoft=20
Rich Textbox Control 6.0 (SP3)
J'utilise le RichTextBox pour saisir du texte et modifier=20
le format(gras-italique-soulign=E9 ...).
Je voudrais en cliquant sur le bouton Ajouter transf=E9rer=20
tout le texte saisi et mis en forme dans la User Form dans=20
mon document actif au point d'insertion.
Quelqu'un peut-il m'apporter des =E9l=E9ments de r=E9ponse ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Bonjour Régis Sur le Click de ton bouton Ajouter : With Selection .Text = Me.TonControle End With
PS : Modifies "TonControle" par le nom de ton contrôle RichTextBox
Cordialement Pascal
"Régis" a écrit dans le message de news: 32eb01c42912$d99d95b0$ Bonjour à tous,
J'ai crée une User Form qui contient : * un bouton "Ajouter" * un ocx RichTextBox (dans Outils- Références : Microsoft Rich Textbox Control 6.0 (SP3)
J'utilise le RichTextBox pour saisir du texte et modifier le format(gras-italique-souligné ...).
Je voudrais en cliquant sur le bouton Ajouter transférer tout le texte saisi et mis en forme dans la User Form dans mon document actif au point d'insertion.
Quelqu'un peut-il m'apporter des éléments de réponse ?
Merci par avance.
Régis
Bonjour Régis
Sur le Click de ton bouton Ajouter :
With Selection
.Text = Me.TonControle
End With
PS : Modifies "TonControle" par le nom de ton contrôle RichTextBox
Cordialement
Pascal
"Régis" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 32eb01c42912$d99d95b0$a501280a@phx.gbl...
Bonjour à tous,
J'ai crée une User Form qui contient :
* un bouton "Ajouter"
* un ocx RichTextBox (dans Outils- Références : Microsoft
Rich Textbox Control 6.0 (SP3)
J'utilise le RichTextBox pour saisir du texte et modifier
le format(gras-italique-souligné ...).
Je voudrais en cliquant sur le bouton Ajouter transférer
tout le texte saisi et mis en forme dans la User Form dans
mon document actif au point d'insertion.
Quelqu'un peut-il m'apporter des éléments de réponse ?
Bonjour Régis Sur le Click de ton bouton Ajouter : With Selection .Text = Me.TonControle End With
PS : Modifies "TonControle" par le nom de ton contrôle RichTextBox
Cordialement Pascal
"Régis" a écrit dans le message de news: 32eb01c42912$d99d95b0$ Bonjour à tous,
J'ai crée une User Form qui contient : * un bouton "Ajouter" * un ocx RichTextBox (dans Outils- Références : Microsoft Rich Textbox Control 6.0 (SP3)
J'utilise le RichTextBox pour saisir du texte et modifier le format(gras-italique-souligné ...).
Je voudrais en cliquant sur le bouton Ajouter transférer tout le texte saisi et mis en forme dans la User Form dans mon document actif au point d'insertion.
Quelqu'un peut-il m'apporter des éléments de réponse ?
Merci par avance.
Régis
Régis
Merci Pascal
Pour tout t'expliquer il faut que je mette en forme dans un contrôle d'une User Form du texte (gras -souligné - couleur ...) issu d'une base de donnée Access.
Avec VBA 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.
Le seul problème qui me reste à régler est de le transférer avec la mise en forme dans Word au point d'insertion.
Voilà le résultat dans Word pour le texte suivant "Caractéristiques générales du bâtiment" tapé dans le Rich Text Box et mis en Gras et souligné :
{rtf1ansideff0deftab720{fonttbl{f0fswiss MS Sans Serif;}{f1fromanfcharset2 Symbol;}{f2fswiss Verdana;}} {colortblred0green0blue0;} deflang1036pardplainf2fs18cf0bul Caract'e9ristiques g'e9n'e9rales du b'e2timentplainf2 fs18cf0 par par par plainf2fs17 par }
En utilisant : selection.text = Me.NomControle.Text le texte est Ok mais je perds toute la mise en forme (gras et souligné) !!
Il doit bien y avoir une solution ...
Si tu as une autre idée je suis preneur.
Merci.
Régis
-----Message d'origine----- Bonjour Régis Sur le Click de ton bouton Ajouter : With Selection ..Text = Me.TonControle End With
PS : Modifies "TonControle" par le nom de ton contrôle RichTextBox
Cordialement Pascal
"Régis" a écrit dans le message de
news: 32eb01c42912$d99d95b0$ Bonjour à tous,
J'ai crée une User Form qui contient : * un bouton "Ajouter" * un ocx RichTextBox (dans Outils- Références : Microsoft Rich Textbox Control 6.0 (SP3)
J'utilise le RichTextBox pour saisir du texte et modifier le format(gras-italique-souligné ...).
Je voudrais en cliquant sur le bouton Ajouter transférer tout le texte saisi et mis en forme dans la User Form dans mon document actif au point d'insertion.
Quelqu'un peut-il m'apporter des éléments de réponse ?
Merci par avance.
Régis
.
Merci Pascal
Pour tout t'expliquer il faut que je mette en forme dans
un contrôle d'une User Form du texte (gras -souligné -
couleur ...) issu d'une base de donnée Access.
Avec VBA 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.
Le seul problème qui me reste à régler est de le
transférer avec la mise en forme dans Word au point
d'insertion.
Voilà le résultat dans Word pour le texte
suivant "Caractéristiques générales du bâtiment" tapé dans
le Rich Text Box et mis en Gras et souligné :
{rtf1ansideff0deftab720{fonttbl{f0fswiss MS Sans
Serif;}{f1fromanfcharset2 Symbol;}{f2fswiss Verdana;}}
{colortblred0green0blue0;}
deflang1036pardplainf2fs18cf0bul
Caract'e9ristiques g'e9n'e9rales du b'e2timentplainf2
fs18cf0
par
par
par plainf2fs17
par }
En utilisant : selection.text = Me.NomControle.Text le
texte est Ok mais je perds toute la mise en forme (gras et
souligné) !!
Il doit bien y avoir une solution ...
Si tu as une autre idée je suis preneur.
Merci.
Régis
-----Message d'origine-----
Bonjour Régis
Sur le Click de ton bouton Ajouter :
With Selection
..Text = Me.TonControle
End With
PS : Modifies "TonControle" par le nom de ton contrôle
RichTextBox
Cordialement
Pascal
"Régis" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news: 32eb01c42912$d99d95b0$a501280a@phx.gbl...
Bonjour à tous,
J'ai crée une User Form qui contient :
* un bouton "Ajouter"
* un ocx RichTextBox (dans Outils- Références : Microsoft
Rich Textbox Control 6.0 (SP3)
J'utilise le RichTextBox pour saisir du texte et modifier
le format(gras-italique-souligné ...).
Je voudrais en cliquant sur le bouton Ajouter transférer
tout le texte saisi et mis en forme dans la User Form dans
mon document actif au point d'insertion.
Quelqu'un peut-il m'apporter des éléments de réponse ?
Pour tout t'expliquer il faut que je mette en forme dans un contrôle d'une User Form du texte (gras -souligné - couleur ...) issu d'une base de donnée Access.
Avec VBA 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.
Le seul problème qui me reste à régler est de le transférer avec la mise en forme dans Word au point d'insertion.
Voilà le résultat dans Word pour le texte suivant "Caractéristiques générales du bâtiment" tapé dans le Rich Text Box et mis en Gras et souligné :
{rtf1ansideff0deftab720{fonttbl{f0fswiss MS Sans Serif;}{f1fromanfcharset2 Symbol;}{f2fswiss Verdana;}} {colortblred0green0blue0;} deflang1036pardplainf2fs18cf0bul Caract'e9ristiques g'e9n'e9rales du b'e2timentplainf2 fs18cf0 par par par plainf2fs17 par }
En utilisant : selection.text = Me.NomControle.Text le texte est Ok mais je perds toute la mise en forme (gras et souligné) !!
Il doit bien y avoir une solution ...
Si tu as une autre idée je suis preneur.
Merci.
Régis
-----Message d'origine----- Bonjour Régis Sur le Click de ton bouton Ajouter : With Selection ..Text = Me.TonControle End With
PS : Modifies "TonControle" par le nom de ton contrôle RichTextBox
Cordialement Pascal
"Régis" a écrit dans le message de
news: 32eb01c42912$d99d95b0$ Bonjour à tous,
J'ai crée une User Form qui contient : * un bouton "Ajouter" * un ocx RichTextBox (dans Outils- Références : Microsoft Rich Textbox Control 6.0 (SP3)
J'utilise le RichTextBox pour saisir du texte et modifier le format(gras-italique-souligné ...).
Je voudrais en cliquant sur le bouton Ajouter transférer tout le texte saisi et mis en forme dans la User Form dans mon document actif au point d'insertion.
Quelqu'un peut-il m'apporter des éléments de réponse ?
Merci par avance.
Régis
.
Geo
Bonjour Régis
Voilà le résultat dans Word pour le texte suivant "Caractéristiques générales du bâtiment" tapé dans le Rich Text Box et mis en Gras et souligné :
{rtf1ansideff0deftab720{fonttbl{f0fswiss MS Sans Serif;}{f1fromanfcharset2 Symbol;}{f2fswiss Verdana;}} [...]
Ce qui parait être du format RTF. Ce qu'il faudrait c'est que ton document d'origine soit enregistré en format RTF mais je crois qu'il faudrait l'ouvrir en mode texte pour insérer le texte en question et c'est là que ça devient compliqué. Tout dépend du contexte. Peut-être en enregistrant le contenu dans un fichier temporaire et en l'insérant dans ton texte par l'équivalent d'insertion Fichier. C'est juste des idées brassées pour alimenter la réflexion.
--
A+
Bonjour Régis
Voilà le résultat dans Word pour le texte
suivant "Caractéristiques générales du bâtiment" tapé dans
le Rich Text Box et mis en Gras et souligné :
{rtf1ansideff0deftab720{fonttbl{f0fswiss MS Sans
Serif;}{f1fromanfcharset2 Symbol;}{f2fswiss Verdana;}}
[...]
Ce qui parait être du format RTF.
Ce qu'il faudrait c'est que ton document d'origine soit enregistré en
format RTF
mais je crois qu'il faudrait l'ouvrir en mode texte pour insérer le
texte en question et c'est là que ça devient compliqué.
Tout dépend du contexte.
Peut-être en enregistrant le contenu dans un fichier temporaire et en
l'insérant dans ton texte par l'équivalent d'insertion Fichier.
C'est juste des idées brassées pour alimenter la réflexion.
Voilà le résultat dans Word pour le texte suivant "Caractéristiques générales du bâtiment" tapé dans le Rich Text Box et mis en Gras et souligné :
{rtf1ansideff0deftab720{fonttbl{f0fswiss MS Sans Serif;}{f1fromanfcharset2 Symbol;}{f2fswiss Verdana;}} [...]
Ce qui parait être du format RTF. Ce qu'il faudrait c'est que ton document d'origine soit enregistré en format RTF mais je crois qu'il faudrait l'ouvrir en mode texte pour insérer le texte en question et c'est là que ça devient compliqué. Tout dépend du contexte. Peut-être en enregistrant le contenu dans un fichier temporaire et en l'insérant dans ton texte par l'équivalent d'insertion Fichier. C'est juste des idées brassées pour alimenter la réflexion.
--
A+
Anacoluthe
Bonjour !
'Régis' nous a écrit ...
En utilisant : selection.text = Me.NomControle.Text le texte est Ok mais je perds toute la mise en forme (gras et souligné) !!
Ben oui, pour vba la propriété text c'est toujours du brut de brut! Il faut soit copier dans le presse-papiers et coller dans Word soit sauver dans un fichier rtf et insérer-fichier dans Word. (richtextbox est un contrôle VB ou une classe .NET)
Anacoluthe « Si j'étais très très très riche, je distribuerais mon argent jusqu'à ne plus être que très riche. Très riche, ça me suffit. » - Philippe GELUCK
Bonjour !
'Régis' nous a écrit ...
En utilisant : selection.text = Me.NomControle.Text le
texte est Ok mais je perds toute la mise en forme (gras et
souligné) !!
Ben oui, pour vba la propriété text c'est toujours du brut de brut!
Il faut soit copier dans le presse-papiers et coller dans Word
soit sauver dans un fichier rtf et insérer-fichier dans Word.
(richtextbox est un contrôle VB ou une classe .NET)
Anacoluthe
« Si j'étais très très très riche, je distribuerais mon argent
jusqu'à ne plus être que très riche. Très riche, ça me suffit. »
- Philippe GELUCK
En utilisant : selection.text = Me.NomControle.Text le texte est Ok mais je perds toute la mise en forme (gras et souligné) !!
Ben oui, pour vba la propriété text c'est toujours du brut de brut! Il faut soit copier dans le presse-papiers et coller dans Word soit sauver dans un fichier rtf et insérer-fichier dans Word. (richtextbox est un contrôle VB ou une classe .NET)
Anacoluthe « Si j'étais très très très riche, je distribuerais mon argent jusqu'à ne plus être que très riche. Très riche, ça me suffit. » - Philippe GELUCK
