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
Zoury
Bonjour ! :O)
Le contrôle RichTextBox ne supporte pas le format de fichier de Word.. seulement le RTF.
Tu pourrais toutefois employer l'automation Word afin de créer une version RTF d'un document et chargé ce document dans le contrôle : '*** ' ajouté une référence à Microsoft Word X.0 Object Library ' ou X représente le numéro de version de Word Option Explicit On
Imports System.IO Imports Word
Public Class Form1 Inherits System.Windows.Forms.Form
' Code généré par le Concepteur Windows Form
Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' on créer une version RTF du document et ' on l'affiche dans le contrôle Dim sRtfFileName As String sRtfFileName = DocToRtf("c:test.doc") RichTextBox1.LoadFile(sRtfFileName) File.Delete(sRtfFileName)
End Sub
Private Function DocToRtf(ByVal sDocFileName As String) As String
Dim oWordApp As ApplicationClass Dim oDoc As DocumentClass
et ça fonctionne. Comment faire la même chose pour les fichiers DOC de
Word
?
Merci
Bonjour ! :O)
Le contrôle RichTextBox ne supporte pas le format de fichier de Word..
seulement le RTF.
Tu pourrais toutefois employer l'automation Word afin de créer une version
RTF d'un document et chargé ce document dans le contrôle :
'***
' ajouté une référence à Microsoft Word X.0 Object Library
' ou X représente le numéro de version de Word
Option Explicit On
Imports System.IO
Imports Word
Public Class Form1
Inherits System.Windows.Forms.Form
' Code généré par le Concepteur Windows Form
Private Sub Form_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
' on créer une version RTF du document et
' on l'affiche dans le contrôle
Dim sRtfFileName As String
sRtfFileName = DocToRtf("c:test.doc")
RichTextBox1.LoadFile(sRtfFileName)
File.Delete(sRtfFileName)
End Sub
Private Function DocToRtf(ByVal sDocFileName As String) As String
Dim oWordApp As ApplicationClass
Dim oDoc As DocumentClass
Le contrôle RichTextBox ne supporte pas le format de fichier de Word.. seulement le RTF.
Tu pourrais toutefois employer l'automation Word afin de créer une version RTF d'un document et chargé ce document dans le contrôle : '*** ' ajouté une référence à Microsoft Word X.0 Object Library ' ou X représente le numéro de version de Word Option Explicit On
Imports System.IO Imports Word
Public Class Form1 Inherits System.Windows.Forms.Form
' Code généré par le Concepteur Windows Form
Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' on créer une version RTF du document et ' on l'affiche dans le contrôle Dim sRtfFileName As String sRtfFileName = DocToRtf("c:test.doc") RichTextBox1.LoadFile(sRtfFileName) File.Delete(sRtfFileName)
End Sub
Private Function DocToRtf(ByVal sDocFileName As String) As String
Dim oWordApp As ApplicationClass Dim oDoc As DocumentClass
et ça fonctionne. Comment faire la même chose pour les fichiers DOC de
Word
?
Merci
JCLAUDE
ça marche,
Merci
à bientôt
"Zoury" <yanick_lefebvre at hotmail dot com> a écrit dans le message de news:
Bonjour ! :O)
Le contrôle RichTextBox ne supporte pas le format de fichier de Word.. seulement le RTF.
Tu pourrais toutefois employer l'automation Word afin de créer une version RTF d'un document et chargé ce document dans le contrôle : '*** ' ajouté une référence à Microsoft Word X.0 Object Library ' ou X représente le numéro de version de Word Option Explicit On
Imports System.IO Imports Word
Public Class Form1 Inherits System.Windows.Forms.Form
' Code généré par le Concepteur Windows Form
Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' on créer une version RTF du document et ' on l'affiche dans le contrôle Dim sRtfFileName As String sRtfFileName = DocToRtf("c:test.doc") RichTextBox1.LoadFile(sRtfFileName) File.Delete(sRtfFileName)
End Sub
Private Function DocToRtf(ByVal sDocFileName As String) As String
Dim oWordApp As ApplicationClass Dim oDoc As DocumentClass
et ça fonctionne. Comment faire la même chose pour les fichiers DOC de
Word
?
Merci
ça marche,
Merci
à bientôt
"Zoury" <yanick_lefebvre at hotmail dot com> a écrit dans le message de
news: uTBTB0ebFHA.1044@TK2MSFTNGP10.phx.gbl...
Bonjour ! :O)
Le contrôle RichTextBox ne supporte pas le format de fichier de Word..
seulement le RTF.
Tu pourrais toutefois employer l'automation Word afin de créer une version
RTF d'un document et chargé ce document dans le contrôle :
'***
' ajouté une référence à Microsoft Word X.0 Object Library
' ou X représente le numéro de version de Word
Option Explicit On
Imports System.IO
Imports Word
Public Class Form1
Inherits System.Windows.Forms.Form
' Code généré par le Concepteur Windows Form
Private Sub Form_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
' on créer une version RTF du document et
' on l'affiche dans le contrôle
Dim sRtfFileName As String
sRtfFileName = DocToRtf("c:test.doc")
RichTextBox1.LoadFile(sRtfFileName)
File.Delete(sRtfFileName)
End Sub
Private Function DocToRtf(ByVal sDocFileName As String) As String
Dim oWordApp As ApplicationClass
Dim oDoc As DocumentClass
"Zoury" <yanick_lefebvre at hotmail dot com> a écrit dans le message de news:
Bonjour ! :O)
Le contrôle RichTextBox ne supporte pas le format de fichier de Word.. seulement le RTF.
Tu pourrais toutefois employer l'automation Word afin de créer une version RTF d'un document et chargé ce document dans le contrôle : '*** ' ajouté une référence à Microsoft Word X.0 Object Library ' ou X représente le numéro de version de Word Option Explicit On
Imports System.IO Imports Word
Public Class Form1 Inherits System.Windows.Forms.Form
' Code généré par le Concepteur Windows Form
Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' on créer une version RTF du document et ' on l'affiche dans le contrôle Dim sRtfFileName As String sRtfFileName = DocToRtf("c:test.doc") RichTextBox1.LoadFile(sRtfFileName) File.Delete(sRtfFileName)
End Sub
Private Function DocToRtf(ByVal sDocFileName As String) As String
Dim oWordApp As ApplicationClass Dim oDoc As DocumentClass
