Needed Freeware

[kcajjack]

I am reading Gutenberg text books in a Voive Text Reader.
Is there any Freeware that will allow me to automatically
space all the sentences or paragraphs in say a 300 or 400
page Text book? I have a few word processors that will
automatically space every line up to 2 spaces, but I would
like to find a program that will let me space more or as much
as I want. I want to use it for effect as in a text voice
reader/synthesizer there is a lot better quality by the
amount of space it finds, plus the lettering of some words
and other things to make the program sound more realistic.
I did check Pricelessware.org website first as usual and couldn't
find anything I thought I could use.
THANX...........

 

[George]

The problem you describe is not entirely clear to me, but I noticed the
e-books are downloaded in ASCI text which places a hard return at the
end of each line. I created a Word macro that elininates the hard
returns but keeps true paragraphs. Just copy the following and past it
in a Word macro.

Public Sub MAIN()
Rem
********************************************************************
Rem * Space Paragraph Macro
*
Rem
********************************************************************
WordBasic.ScreenUpdating 0
WordBasic.EditReplace Find:="^l", Replace:="^p", Direction:=0,
MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0,
ReplaceAll:=1, Format:=0, Wrap:=0
WordBasic.EditReplace Find:="^0124 ", Replace:="", Direction:=0,
MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0,
ReplaceAll:=1, Format:=0, Wrap:=0
WordBasic.EditReplace Find:="^0124", Replace:="", Direction:=0,
MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0,
ReplaceAll:=1, Format:=0, Wrap:=0
WordBasic.EditReplace Find:=" ", Replace:="", Direction:=0,
MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0,
ReplaceAll:=1, Format:=0, Wrap:=0
WordBasic.EditReplace Find:=" ^p", Replace:="^p", Direction:=0,
MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0,
ReplaceAll:=1, Format:=0, Wrap:=0
WordBasic.EditReplace Find:=" ^p", Replace:="^p", Direction:=0,
MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0,
ReplaceAll:=1, Format:=0, Wrap:=0
WordBasic.EditReplace Find:="^p ", Replace:="^p", Direction:=0,
MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0,
ReplaceAll:=1, Format:=0, Wrap:=0
WordBasic.EditReplace Find:="^p ", Replace:="^p", Direction:=0,
MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0,
ReplaceAll:=1, Format:=0, Wrap:=0
WordBasic.EditReplace Find:="^p ^p", Replace:="^p^p", Direction:=0,
MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0,
ReplaceAll:=1, Format:=0, Wrap:=0
WordBasic.EditReplace Find:=".^p", Replace:=". ^p", Direction:=0,
MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0,
ReplaceAll:=1, Format:=0, Wrap:=0
Rem ____________________
WordBasic.EditReplace Find:="^p^p^p^p", Replace:="^p^p", Direction:=0,
MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0,
ReplaceAll:=1, Format:=0, Wrap:=0
WordBasic.EditReplace Find:="^p^p^p", Replace:="^p^p", Direction:=0,
MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0,
ReplaceAll:=1, Format:=0, Wrap:=0
Rem ______________________
WordBasic.EditReplace Find:="^p^p", Replace:="!@#$%&*()+",
Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0,
SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=0
WordBasic.EditReplace Find:="^p", Replace:=" ", Direction:=0,
MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0,
ReplaceAll:=1, Format:=0, Wrap:=0
WordBasic.EditReplace Find:="!@#$%&*()+", Replace:="^p", Direction:=0,
MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0,
ReplaceAll:=1, Format:=0, Wrap:=0
WordBasic.EditReplace Find:="^p ", Replace:="^p", Direction:=0,
MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0,
ReplaceAll:=1, Format:=0, Wrap:=0
WordBasic.EditReplace Find:=" ^p", Replace:="^p", Direction:=0,
MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0,
ReplaceAll:=1, Format:=0, Wrap:=0
WordBasic.EditReplace Find:="^p", Replace:=" ^p^p", Direction:=0,
MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0,
ReplaceAll:=1, Format:=0, Wrap:=0
WordBasic.ScreenRefresh
WordBasic.ScreenUpdating 1
End Sub