#1
|
|||
|
|||
Remove or bulk reset line breaks.
Running Word 2007. Excuse me if I don't use the correct terminology in the following. I recently scanned a booklet, and had it converted to a PDF with text recognized. I copied and pasted the resulting text into a blank Word doc. Text is left justified. All good so far, but each line is terminating in a paragraph mark at ~ 4.5", max. I would like the lines to fit a standard 8.5 x 11 page, with 1" margins, so each line should be ~ 6.5". The doc is ~ 20 pages long. Other than going to the end of each line + deleting the paragraph mark, is there a way to accomplish this on the entire doc at once? Doc is saved as .docx.
I hope my question is clear! Jazz43 |
#2
|
||||
|
||||
Hi Jazz43,
Here's a macro you can use for cleaning up text pasted from the web, emails, pdfs, etc. Aside from acting on the whole document and assuming there are two (or more) paragraph breaks for each real paragraph break, and only one for each line break, there's nothing much you need to know before running it. Code:
Sub CleanUpPastedText() 'Turn Off Screen Updating Application.ScreenUpdating = False With ActiveDocument.Range.Find .ClearFormatting .Replacement.ClearFormatting .Forward = True .Wrap = wdFindStop .Format = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True 'Eliminate spaces & tabs before paragraph breaks. .Text = "[ ^s^t]{1,}^13" .Replacement.Text = "^p" .Execute Replace:=wdReplaceAll 'Replace single paragraph breaks with a space .Text = "([!^13])([^13])([!^13])" .Replacement.Text = "\1 \3" 'Replace all double spaces with single spaces .Execute Replace:=wdReplaceAll .Text = "[ ]{2,}" .Replacement.Text = " " 'Delete hypens in hyphenated text formerly split across lines .Execute Replace:=wdReplaceAll .Text = "([a-z])-[ ]{1,}([a-z])" .Replacement.Text = "\1\2" .Execute Replace:=wdReplaceAll 'Limit paragraph breaks to one per 'real' paragraph. .Text = "[^13]{1,}" .Replacement.Text = "^p" .Execute Replace:=wdReplaceAll End With 'Restore Screen Updating Application.ScreenUpdating = True End Sub For Mac macro installation & usage instructions, see: http://word.mvps.org/Mac/InstallMacro.html If you'd prefer to run the macro against just a selected range, change: ActiveDocument to: Selection
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#3
|
|||
|
|||
Thanks for that, I'll check it out
|
#4
|
|||
|
|||
Thank you for this Macro. However when I try to run it stops in line " .Execute Replace:=wdReplaceAll" : Errore di run-time 5560 Il testo nella casella Trova contiene un'espressione non valida Usa criteri di ricerca that translated is like "Run-time error 5560 Text in Find box contains invalid expression Use search criteria".
Do I have lo install some plug-in in Word/Office to make it work and possibly find the wdReplaceAll function? I have Office 365 version |
#5
|
||||
|
||||
See the Cleaning up Text Pasted from Websites, E-mails, PDFs etc. 'Sticky' thread at the top of this forum: https://www.msofficeforums.com/word/...-pdfs-etc.html
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#6
|
|||
|
|||
Quote:
This works fine!! |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Prevent Outlook from adding line breaks | vektor | Outlook | 4 | 02-14-2012 02:16 PM |
Paragraph line breaks | muymalestado | Word | 3 | 09-25-2011 05:06 AM |
Line breaks at each line in Web text | ahazelwood | Word | 5 | 01-06-2011 02:37 PM |
How would I bulk select and copy highlights and then bulk paste them automatically? | copywriterpro | Word | 0 | 04-19-2010 05:21 AM |
Unwanted line breaks | P. Alkuin | Word | 2 | 03-15-2010 09:33 AM |