Replacing till there's no more double paragraphs in the text

eduzs · #16 06-25-2017, 07:57 AM

Thanks a lot! Works fine.
We can set this thread as solved.

eduzs · #17 06-25-2017, 03:22 PM

Hi gmaxey, just one more little question, how can I merge two lines of text?

"The book is on the blue^p
table next to the door."

Result:

"The book is on the blue table next to the door."

I did this: "[!.:;]^13" to "^p", but does not work, the last character of the 1st paragraph disapear, resulting in "The book is on the blu table..."

Note that the code should only join the rows if "^ p" is not preceded by "." or ";" or ":".

Ps.: I did a trick, two passes, "[!.:;]^13", "^13¢", replace to "^&¢", " ".
Seems to work fine.

Thanks.

gmayor · #18 06-25-2017, 08:09 PM

You can do it in one
Replace
([!.:;"'])^13
with \1 (followed by a space)

eduzs · #19 06-26-2017, 02:56 AM

Wildcard is like magic.
Thanks again!

"Final" code, for collaboration purposes:

Quote:

Sub Text_Cleaner()

Dim i As Long, opMsg As Integer, oRng As Range, oPara As Range, aProc, aSubs

aProc = Array("^255", "^13^32", "^32{1;}^13", "^13^32{1;}", "^13{2;}", "^32{2;}", "([!.:;""])^13")
aSubs = Array("", "^p", "^p", "^p", "^p", " ", "\1 ")

If Selection.Words.Count = 1 Then

Set oRng = ActiveDocument.Range
opMsg = 1

Else

Set oRng = Selection.Range
opMsg = 2

End If

If MsgBox("Clean-up " & IIf(opMsg = 1, "activedocument", "selected range") & "?", vbYesNo + vbExclamation, " CONFIRMATION!") = vbNo Then Exit Sub

Application.ScreenUpdating = False

For i = 0 To UBound(aProc)

With oRng.Find
.ClearFormatting
.Text = aProc(i)
.Replacement.Text = aSubs(i)
.MatchWildcards = True
.Execute Replace:=wdReplaceAll
End With

Next i

Set oPara = oRng.Paragraphs(1).Range

If Left(oPara.Text, 1) = " " Then oPara.Text = Right(oPara.Text, Len(oPara.Text) - 1)

If Len(ActiveDocument.Range.Paragraphs.Last.Range) = 1 Then ActiveDocument.Range.Paragraphs.Last.Range.Delete

Application.ScreenUpdating = True

End Sub

gmaxey · #20 06-26-2017, 04:45 AM

Your code as posted won't work for me. f you really want to collaborate then you should include the bit about:
Dim arrFind, arrReplace
strLS = Application.International(wdListSeparator)
etc.,

eduzs · #21 06-28-2017, 04:22 PM

Hi there gmaxey, I was thinking about a more user-frendly code, but I did a lot of customization and the code should not be useful for everyone.
I have a new question:
In this mask: "([!.:;""])^13" how can I set not only a single caracter exception, but two or more, something like "([!.:'0 ;';""])^13" or "([!.:;'mary'""])^13"
Thanks

gmayor · #22 06-28-2017, 08:01 PM

See http://www.gmayor.com/replace_using_wildcards.htm

macropod · #23 06-28-2017, 10:54 PM

Word's Find/Replace routine will not find empty paragraphs before a table. You need a different approach for that. For example:

Code:

Sub Demo()
Dim Tbl As Table, Rng As Range
On Error Resume Next
For Each Tbl In ActiveDocument.Tables
  Set Rng = Tbl.Range.Characters.First.Previous
  Rng.MoveStartWhile vbCr, -1
  Rng.Delete
Next
End Sub

eduzs · #24 06-29-2017, 03:12 AM

Thanks macropod and gmaxey.
I was trying to modify this mask unsucessfull.
"([!.:;""])^13"
Works fine and does not find when there's a !, ., : or ; (for a single character it works fine).
The problem is that I want it to not find also when there's a exact sequence of character like "xyz".
I tried with "([!.:;<xyz>""])^13" not works.
I read the link but didn't find something exactly like I was looking for.

macropod · #25 06-29-2017, 07:00 PM

Try:
Find = ([!.:;]xyz[" & Chr(34) & "”])^13

eduzs · #26 07-01-2017, 04:04 PM

Macropod, gmaxey, gmayor thanks for helping.
Gmaxey and gmayor, I really liked your site, several examples of useful macros, developing macros for word, I think, is not as easy or intuitive as for excel, so we need forum help all the time.
I think much of the difficulty of development is because of the endless number of objects and countless properties, in excel vba you can meet 90% of your needs only with workbook, sheets and cells objects.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Help with replacing text with wildcards	sbatson5	Word	2	04-13-2012 03:49 AM
Why the "Text boundaries" are not shown till the end of the page while in other file	Jamal NUMAN	Word	4	03-28-2012 07:58 AM
outlook double spacing paragraphs	GWBDIRECT	Outlook	3	04-06-2011 11:29 AM
Replacing a single "l" with a double "ll"	MShroff	Word	8	01-19-2011 08:43 AM
Replacing / editting text	LisaC	Word	0	02-25-2010 03:40 AM