Solved

Getting rid of Word control characters before writing text to another application

Posted on 2004-08-08
10
136 Views
Last Modified: 2010-05-19
I'm developing a script for work using VBA that reads information from a MS Word Document, uses Split to create an array, then writes the contents of the array into an Excel file. The Word document is  a highly formatted Form and I need the data to be placed in Excel so that it is delimited by the text in each section (one cell per line of text, basically).

Everything is almost great using Chr(13) as my Split delimiter character, this splits the text correctly but I still get some  looking characters outputted to the Excel sheet. I want to suppress these  control characters but have so far had no success in doing it. I need the characters to be gone so that I can next use ADODB to create a recordset from the Excel sheet and I only want text in the recordset. I've marched through every ASCII charachter from 0 to 255 with no success. How do I get rid of the remaining  control characters before they go into the array or before they go into the Excel sheet?

Here is an example of the output.....     PUT IN  VERIFIED                            PUT IN  VERIFIED                           PUT IN VERIFIED                              PUT IN  VERIFIED
                                 BY          BY                                        BY        BY                                       BY         BY                                         BY          BY

ALDA


KYZF









ALDB


KYZG








0
Comment
Question by:philTN
10 Comments
 
LVL 22

Expert Comment

by:DarkoLord
ID: 11748387
Read the data back from Excel and use Asc() function to find out which character is that

Darko
0
 
LVL 7

Expert Comment

by:Burbble
ID: 11749292
(what he said)...and then use strData = Replace(strData, Chr(x), "")

-Burbble
0
 

Author Comment

by:philTN
ID: 11798719
Tried that but it won't return an ASC code for the character. Instead it spits out the first two codes (horizontal tab and space), then returns an error saying "invalid procedure or argument" when it encounters one of the square looking characters.

By saving to a text file using FSO and splitting the array on Chr(13), I've been able to figure out that the characters in question seem to be placeholders for blank cells within the original Word table. The table is composed of 3 columns, only one of which currently contains data. Although there is no data or extraneous spaces in the other two cells, these square looking characters get written to the text file and match up exactly with where there are blank cells in the table. The current output to the text file looks like this:

\ALDA\\\KYZF\\\\\\\\\\ALDB\\\

It also seems to be saving a delimiter of sort  between tables(i have 4 tables across with 3 columns each).
0
 

Author Comment

by:philTN
ID: 11801658
I can further clarify after turning on the formatting marks in the original Word 2000 document that the characters are the paragraph marks. These marks are not eliminated by the Split command. So how do I remove them either before or after saving to Excel or plain text? I've already tried Trim and Replace but that was because i thought they wre rtf codes. All i got in return was that it was a type mismatch for "\" or"{".
0
Highfive Gives IT Their Time Back

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

 
LVL 7

Expert Comment

by:Burbble
ID: 11804787
Paragraph marks... maybe Chr(10) and Chr(13)?

Try...

strData = Replace(strData, Chr$(10), "")
strData = Replace(strData, Chr$(13), "")

-Burbble
0
 

Author Comment

by:philTN
ID: 12178430
Thanks, I tried that but it still didn't work. When I tried reading in the ASCII code for the character it kept telling me (13) but it wouldn't Replace it.

I found what I was looking for through further research. By calling Excel's CLEAN function from VB I was able to make another copy of the seadsheet with all non-printing characters deleted, with one line of code. Thanks again to both of you for your help.

phil
0
 
LVL 7

Expert Comment

by:Burbble
ID: 12183246
Ah, ok. Glad you got it fixed :)

-Burbble
0
 

Accepted Solution

by:
modulo earned 0 total points
ID: 12503580
PAQed, with points refunded (75)

modulo
Community Support Moderator
0

Featured Post

Free Trending Threat Insights Every Day

Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.

Join & Write a Comment

Suggested Solutions

Title # Comments Views Activity
z = x + y – 1 6 58
Excel Vlookup to move data back to source. 4 73
VBA open file from excel cell 4 34
vb6 connector to mongodb 2 29
I’ve seen a number of people looking for examples of how to access web services from VB6.  I’ve been using a test harness I built in VB6 (using many resources I found online) that I use for small projects to work out how to communicate with web serv…
The debugging module of the VB 6 IDE can be accessed by way of the Debug menu item. That menu item can normally be found in the IDE's main menu line as shown in this picture.   There is also a companion Debug Toolbar that looks like the followin…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…

760 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

22 Experts available now in Live!

Get 1:1 Help Now