Rtf в excel vba

The .Net Framework RichTextBox class can perform the conversion. Fortunately, this class has the ComVisibleAttribute set, so it can be used from VBA without much difficulty.

I had to create a .tlb file to Reference. In the

%SYSTEMROOT%Microsoft.NETFrameworkcurrentver

directory, run the command

regasm /codebase system.windows.forms.dll

to create the system.windows.forms.tlb file. I already had this .tlb file on my system, but I had to recreate it using this command to be able to create a .Net System.Windows.Forms RichTextBox object successfully in VBA.

With the new .tlb file created, in VBA link it to your project via Tools->References in the VBA IDE.

I wrote this test code in Access to demonstrate the solution.

Dim rtfSample As String
rtfSample = "{rtf1ansideflang1033ftnbjuc1 {fonttbl{f0 froman fcharset0 Times New Roman;}{f1 fswiss fcharset0 Segoe UI;}} {colortbl ;red255green255blue255 ;} {stylesheet{fs22cf0cb1 Normal;}{cs1cf0cb1 Default Paragraph Font;}} paperw12240paperh15840margl1440margr1440margt1440margb1440headery720footery720deftab720formshadeaendnotesaftnnrlcpgbrdrheadpgbrdrfoot sectdpgwsxn12240pghsxn15840marglsxn1440margrsxn1440margtsxn1440margbsxn1440headery720footery720sbkpagepgnstarts1pgncontpgndec plainplainf1fs22lang1033f1 hello question stemplainf1fs22par}"

Dim miracle As System_Windows_Forms.RichTextBox
Set miracle = New System_Windows_Forms.RichTextBox
With miracle
    .RTF = rtfSample 
    RTFExtractPlainText = .TEXT
End With

MsgBox RTFExtractPlainText(rtfSample)

With the result

hello question stem

I’d assume re-creating the .tlb file in the Framework64 directory would be needed on 64-bit Windows with 64-bit Office. I am running 64-bit Win10 with 32-bit Office 2013, so I had to have a 32-bit .tlb file.

Carrying on from this question: https://www.experts-exchange.com/questions/21413136/Convert-RTF-to-XLS-Freeware.html

I’m trying to manipulate an RTF file by inserting it’s contents into Excel.  This all works fine by copying and pasting the data, and then manually sorting the information, although there’s one slight problem.  All the data in the RTF file is stored in text boxes, some of those text boxes span over two lines, and there’s no easy way to determine which lines should be joined together.

An example:

There’s a column with surnames on each page.  by default there are 20 surnames on each page.  One page in particular has 20 surnames but one particular surname is hyphenated and spans across two lines i.e. smith-constantine.  A simple copy and paste into excel as above would work perfectly, although now I have 21 lines of surnames, and only 20 lines of firstnames.  Without manually matching them up, I’m looking for a way to somehow work out which two surname lines have to be joined together.
I tried to extend the horizontal size of the textbox manually, in the hope that maybe the lines:

smith-
constantine

would retract back to the line:

smith-constantine

but no such luck.  It’s not a word-wrap so I have to manually delete the gap between the two, then they join up successfully, but as far as a macro is concerned, I can’t see any way to do this automatically.

Any ideas?

1. 05-19-2020, 12:47 AM

   
   

   #1

   

   
   Registered User
   

   

   ---

   RTF to text using VBA
   

   I am looking for any solution to convert RTF to plain text. I have a large project with many userforms,classes, modules. I use the file system object to read an RTF file into a string.

   I need to convert the string from RTF to plain text (or extract the plain text, perhaps with a regex?)
   I have seen the older solutions using richtextbox controls , but it has its issues with the references. I found some info about the office ContentControls class (type=wdRichTextBox), can it do the conversion/extract of the plain text?

   Thanks,
   Joe

   ---

2. 05-19-2020, 01:54 AM

   
   

   #2

   Re: RTF to text using VBA
   

   I did one years ago, but I need to see your rtf file first, so that I can test it.

   ---

3. 05-19-2020, 08:35 AM

   
   

   #3

   

   
   Registered User
   

   

   ---

   Re: RTF to text using VBA
   

   {rtf1ansiansicpg1252deff0deflang2070{fonttbl{f0fnilfcharset0 Microsoft Sans Serif;}{f1fnilfcharset0 Tahoma;}{f2fnilfcharset2 Symbol;}}
   viewkind4uc1pardf0fs17par
   pard{pntextf2’B7tab}{*pnpnlvlbltpnf2pnindent0{pntxtb’B7}}f1 onepar
   {pntextf2’B7tab}twopar
   {pntextf2’B7tab}threepar
   {pntextf2’B7tab}par
   pardfs17par
   }

   ---

4. 05-19-2020, 08:58 AM

   
   

   #4

   Re: RTF to text using VBA
   

   Just obviously using Word �

   ---

5. 05-19-2020, 12:41 PM

   
   

   #5

   Re: RTF to text using VBA
   

   I don’t think «System_Windows_Forms.RichTextBox» is not available now for Excel vba.

   Why not just open rtf file from Word and read the text from there?
   I can write a code using Regular Expressions, but it will be only for this particular file, not in general.

   ---