Want Macro to join lines and delete numbers

Benali · #1 04-29-2020, 08:49 PM

Quote:

Originally Posted by Guessed

I got the impression that Benali wants to get rid of the time stamps completely and merge the content into a single paragraph. When I copy/pasted from the original post, the lines were separated by a soft return rather than a paragraph mark so I'm going to assume that is what the code needs to work with.

If the above assumptions are right, building on from Paul's code try...

Code:

Sub Demo()
  Application.ScreenUpdating = False
  With ActiveDocument.Range
    With .Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Text = "([0-9:]{5})"
      .Replacement.Text = " "
      .Forward = True
      .Format = False
      .Wrap = wdFindContinue
      .MatchWildcards = True
      .Execute Replace:=wdReplaceAll
      .Text = "^l"   'or ^13
      .Replacement.Text = ""
      .Execute Replace:=wdReplaceAll
    End With
  End With
  Application.ScreenUpdating = True
End Sub

when i run this code it takes away the numbers but does not place the line to the one above and make a complete sentence

Its like this

I sing sit home all morning really but

then you stepped up I'm glad but there's

not enough room for both of us this

morning so I'm gonna pass um we got a

and wish to have this:

I sing sit home all morning really but then you stepped up I'm glad but there's not enough room for both of us this morning so I'm gonna pass um we got a

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Delete lines with just a number on them - use macro or find & replace?	enso	Word	2	05-20-2019 02:58 AM
Select and Delete 2 lines after each blank line	Ziad El Hachem	Word VBA	4	03-21-2017 06:55 PM
delete axis lines	jhatter	PowerPoint	2	06-04-2015 07:14 AM
How can I delete spaces & lines in a table cell	mrayncrental	Word VBA	3	10-20-2014 07:09 PM
cannot delete these lines!	userman	Word	4	05-02-2012 12:34 AM