Convert ASCII text by eliminating extra paragraph breaks

[fredwang]

hi,

i have tried to run this sub however it comes up as a series of errors


is there any way to make it stand alone??


regards

Fred




Sub DeleteExcessInteriorSpaces(FandR as Object)
SM = Chr(165) 'Space marker.
FandR.setSearchString("^ *") 'find any number of spaces at beginning of paragraph
Find = oDoc.findFirst(FandR)
While NOT isNull(Find)
Find.String = String(Len(Find.String),SM) 'replace with placeholders
Find = oDoc.findNext(Find.End,FandR)
Wend
FandR.setSearchString(" *") 'find any number of spaces
FandR.setReplaceString(" ") 'replace with one space
oDoc.ReplaceAll(FandR) 'do it
FandR.setSearchString("^" & SM & "*") 'find any number of placeholders at beginning of line
Find = oDoc.findFirst(FandR) 'turn them back into spaces
While NOT isNull(Find)
Find.String = String(Len(Find.String)," ")
Find = oDoc.findNext(Find.End,FandR)
Wend
End Sub

[JohnV]

fredwang,

Try this.

[fredwang]

hi,


thanks for that, it worked to a point, however i did a test with:

Fred
Bill

(ie) 4 spaces then Fred then 4 spaces etc

it did strip the 3 spaces after Fred but left the spaces before Fred

as i read the code the spaces before the paragraph should have been stripped or am i missing something

thanks for your quick reply i appreciate it


regards
fred

[JohnV]

fred,

The code is specifically designed to maintain spaces before a paragraph like an indent. If you just want to strip any space(s) at the beginning and multiple spaces within a paragraph try this.

[fredwang]

hi again

excellent, this is what i need - i did re-read the macro and figured that it was meant to leave the spaces before.

during OCR, particularly with old books spaces are left between the quotation marks - here is a macro that again doesn't work ( i haven't written any code since '85 and it shows) could you again offer any suggestions?

regards


fred


Sub StripSpacesBetweenQuoteMarks
oDoc = ThisComponent
FandR = oDoc.createReplaceDescriptor
FandR.searchRegularExpression = true
FandR.setSearchString("" \<") 'Find one double quotation mark and space at beginning of word.
FandR.setReplaceString(""") 'Replace with one double quotation mark.
oDoc.ReplaceAll(FandR) 'Do it.
FandR.setSearchString("\> "") 'Find space and double quotation mark at end of word.
FandR.setReplaceString(""") 'Replace with one double quotation mark.
oDoc.ReplaceAll(FandR) 'Do it.
End Sub

[JohnV]

Don't ask me why but it takes 4 double quotes to represent 1 in this situation. Here's your code updated. In the first two modification I have also shown an example of setting up a reference in the search string and then using a back reference in the replace string. This only works in v2.4.1 and above.

Please ask in other such questions in a new thread as these are getting "off topic" for this one.

[ivo9]

I unfortunately cannot run the macro (i.e. the orgininal long one). It obviously works for multiple people so i might be doing something wrong. I get several errors starting with "compile error: Sub or Function not defined" on the "createUnoService" line. Do you know what might be wrong?

I am running office 2003 if that is in any way relevant.

Thank you.

Ivo

[Corfy]