[reuven]

Windows 98se.Word 2000 I have downloaded a document, that opens in word2000.But the sentences are not completed on the same line. Like this:- ------------------------------------
-----
------------------------------------
-----
I can edit the the document by deleting the spaces, but this document consists of 500 pages, so is there a simpler and more correct method? The help file on Words is hopeless.I will be pleased to receive any ideas.
reuven 1925

[Plantsman]

Here are two macros. To make these permanent in Word select and copy the first one to the clipboard i.e. StripSpaces macro (first one} then go to Tools, Macros, Record Macro. Now type in StripSpaces as the name, click OK then stop the macro by clicking on the stop button. Now select Tools, Macro, Macros. The name of your Macro will be displayed. Select it and click on the Step Into button, this will open the Visual Basic Editor and you will see some entries in the main window (the last entries). Delete these entries carefully with the backspace button. Now select Edit, Paste from the menu and paste the text you copied earlier. Choose file, Save as Normal to save your macro, then exit back to word. Repeat these steps choosing a different name to copy the other macro.

After you have created the first Macro, you will see it displayed in the Visual Basic Window when you enter you next macro. It will be separated from your current macro by a dotted line. Leave the dotted line and the previous macro alone and just delete anything after it with the backspace key. This applies to any further macros you may enter.

Look at each macro individually they are both set to delete 30 instances of spaces or paragraphs in the line which reads

For x=1 to 30

Just change the 30 to whatever figure you want. This will be large for a 500 page document. Try 50000 as a test.



Here is a macro for stripping spaces
Select text between the dotted lines

Sorry the first .Text = " " contains two spaces between the " "
The second .Text = " " contains one space

You will have to correct the first instance of .Text = " " after copying and pasting into Word. This web page hasn't carried over the formatting properly.
----------------------------------------------------------

Sub StripSpaces()
For x = 1 To 30
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = " "
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next x
End Sub
------------------------------------------------------------------
Just in case, here's one to strip Paragraphs.
Select text between the dotted lines

--------------------------------------------------------------------
Sub StripParagraphs()
For x = 1 To 30
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p^p^p"
.Replacement.Text = "^p^p"
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next x
End Sub

-------------------------------------------------------------------------

[reuven]

Thank you Plantsman. Before I carry out your method, there may be a simpler solution to my individual problem.I downloaded my document from the following-www.gutenberg.org/etext/1079- It is a book Tristam Shandy. The format was 'plaintext' I have since downloaded the same book from Gutenberg as a zip file. This file gives me the complete book including illustrations. The down side ,the book is shown with the pages side by side,which does not make for easy reading. Is there any way to resolve this problem? If this book is read on line from the same address,page by page , this does not occur.
reuven1925

[Plantsman]

Here is the text file attached with paragraphs removed ( they were not spaces) and divided by Chapters.

[reuven]

Thank you Plantsman,sorry for delay in thanking for your help.But I did not get any e-mail notification that there was a new message.Exactly what did you do?
reuven1925

[jimr381]

If it was just extraneous paragraphs then I would typically use a Find/Replace to find the 2 paragraph markers and replace them with 1.

Please mark this thread as solved via the "Mark Solved" button at the top of the post.

[reuven]

thank you jimr381, but I have no "Mark solved" button.

[Plantsman]

Originally Posted by reuven

Thank you Plantsman,sorry for the delay. Exactly what did you do?
reuven1925

There was a paragraph at the end of every line so they all had to be stripped away first. Then a macro to find each Chapter heading and place it on a separate line, that part didn't work 100% (still working on it) then did a bit of manual cleaning up which didn't take long.

By the way the StripParagraphs macro I gave you wouldn't have worked anyway as that wouldn't have stripped all of them. Hope the document is now how you wanted it. Glad to have helped.

[reuven]

Thank you again Plantsman, Exactly as I required.
Reuven

[jimr381]

Reuven that is because you made a new account and posted it under that account. If I were you I would ask an admin if they could combine the accounts and mark the post as being solved.

[LauraMJ]

I've merged the two accounts. Marking this as "solved."

[reuven]

LauraMJ. Thank you.
reuven