Ad:

Visual Basic 4 / 5 / 6 Discussion Thread
Marked Solved
Views: 13472

Sep 3rd, 2007

Convert Word document into a RichText Format document

Expand Post »

Greetings folks,

I need to load a word document file into a RichTextBox component, It can't be done directly, so, I need first, convert it to a RichText Format File and then load it to the component. Any Ideas?

Thanks

Omar

Similar Threads

How we open a ms word document file with php? in PHP
how can i display the ms word document in asp page? in ASP
News Article: eFax Messenger Plus in Windows Software
Searching and Comparing strings from an XML Document in Python
writing fromDB to MS word document in VB.NET

culebrin

Reputation Points: 10

Solved Threads: 1

Junior Poster in Training

Offline

62 posts
since Aug 2007

Permalink

Sep 4th, 2007

Re: Convert Word document into a RichText Format document

Hi,

Try this, I haven't been able to test it:

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Dim Oword As Object
Dim Odoc As Object
 
Private Sub Command1_Click()
  Set Oword = CreateObject("Word.Application")
  Set Odoc = Oword.documents.open("C:\temp.doc")
  Odoc.SaveAs FileName:="c:\x.rtf", FileFormat:=wdFormatRTF
  Oword.quit
 
  Me.RichTextBox1.FileName = "C:\x.rtf"
End Sub
Dim Oword As Object
Dim Odoc As Object

Private Sub Command1_Click()
  Set Oword = CreateObject("Word.Application")
  Set Odoc = Oword.documents.open("C:\temp.doc")
  Odoc.SaveAs FileName:="c:\x.rtf", FileFormat:=wdFormatRTF
  Oword.quit

  Me.RichTextBox1.FileName = "C:\x.rtf"
End Sub

kb.net

Reputation Points: 13

Solved Threads: 29

Junior Poster

Offline

169 posts
since Aug 2007

Permalink

Sep 8th, 2007

Re: Convert Word document into a RichText Format document

Thanks KB ,

But, now I can't make it work, the "wdFormatRTF" is a non recognized variable

, I tried to look for other options, but I can't find any related (and relevant) info about those options on the "Word.Application" object, maybe you can show me how can I accomplish this. Thanks

culebrin

Reputation Points: 10

Solved Threads: 1

Junior Poster in Training

Offline

62 posts
since Aug 2007

Permalink

Sep 9th, 2007

Re: Convert Word document into a RichText Format document

Hi,
Just replace the wdFormatRTF with number 6 (this code is for VB6, if you are using different IDE please advise).

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Dim Oword As Object
Dim Odoc As Object
 
Private Sub Command1_Click()
  Set Oword = CreateObject("Word.Application")
  Set Odoc = Oword.documents.open("C:\temp.doc")
  Odoc.SaveAs FileName:="c:\x.rtf", FileFormat:=6
  Oword.quit
Me.RichTextBox1 = ""
  Me.RichTextBox1.FileName = "C:\x.rtf"
End Sub
Dim Oword As Object
Dim Odoc As Object

Private Sub Command1_Click()
  Set Oword = CreateObject("Word.Application")
  Set Odoc = Oword.documents.open("C:\temp.doc")
  Odoc.SaveAs FileName:="c:\x.rtf", FileFormat:=6
  Oword.quit
Me.RichTextBox1 = ""
  Me.RichTextBox1.FileName = "C:\x.rtf"
End Sub

kb.net

Reputation Points: 13

Solved Threads: 29

Junior Poster

Offline

169 posts
since Aug 2007

Permalink

Sep 10th, 2007

Re: Convert Word document into a RichText Format document

Thanks man!!,

That worked great!!, now I'm trying with other formats, I'll post how i'm doing with it...

culebrin

Reputation Points: 10

Solved Threads: 1

Junior Poster in Training

Offline

62 posts
since Aug 2007

Permalink

Jan 24th, 2009

Re: Convert Word document into a RichText Format document

ok i found this thread through google and im quite a novice at scripting but where exactly would i incert that bit of code you posted in my MS word documents code?

The Neophyte

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

1 posts
since Jan 2009

Permalink

Jan 24th, 2009

Re: Convert Word document into a RichText Format document

First, it's strongly frowned upon to post to threads that are more than three months old. Even if you have a question regarding an old thread, then you would start a new thread, and post a link to the old thread with your question. This will help to ensure that you get a warm and helpful welcome instead of the inevitable flaming that is sure to follow posting to old threads.

Comatose

Team Colleague

Reputation Points: 361

Solved Threads: 214

Taboo Programmer

Offline

2,413 posts
since Dec 2004

This thread is solved

Either the thread starter or a moderator has marked this thread as solved. You can most likely trust the responses and answers given. There is most likely no reason for any further responses to be posted here. If you have a related question, please start a new thread in this forum instead.

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Visual Basic 4 / 5 / 6 Forum Timeline: generating access report on click

Next Thread in Visual Basic 4 / 5 / 6 Forum Timeline: help :)

DaniWeb Message

Cancel Changes

User Name
Password